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SND JBC SSNDACC, SSNDSMB, and SSNDJBC services 16-Sep-1984 00:27:5 AX-11 Bliss-32 V4.0-74 Pa 1) SND 
1a-8ep-19 4 90: 9537 JOBCTL.SRCISNDJBC.B32; i (1). v04 
MODULE SNDJBC (XTITLE r SSNDACC SSNDSMB, and $SNDJBC services’ | 
IDENT = 'v04-0 | 
= 
BEGIN 


' 
. 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


he 

* 

* 

® 

® 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
® 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

ie CORPORATION. . 
* 

cs 

® 

* 

* 

* 


ie DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 
ie 
OEP ECS CESS ETC C Tee Cece eee Tee eee eee Tec eT cece tect it ici iit iticitititiiig 
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BILITY FOR THE USE OR RELIABILITY OF ITS 


IL 
IS NOT SUPPLIED BY DIGITAL. 


I 
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v03-013 JAK0220 JA Krycte 18-Jul-1984 : 
dd support for SJCS_PAGINATE and SJC$_NOPAGINATE item codes 
for queue level operations. 


were Te rere Tere re rere rere rere eee rele ere eee re eee rerere rere rere rere rere reieiriere rire 
BEBE EEE EWN NIA AI PPO NONONININD 2 2 ow 


PUPP & 


3 | 

: 

5 Job controller. 

5 1! ABSTRACT: | 

6 ! This module contains the routines that implement the $SNDACC, S$SNDSMB | 

i and $SNDJBC services. 

9 1! ENVIRONMENT: | 
Bee } VAX/VMS user and kernel mode. | 
04 i 
a8 AUTHOR: M. Jack, CREATION DATE: 16-Feb-1982 | 
045 1 | MODIFIED BY: 
046 ! 

047 1! VO3-015 JAKO229, = J A Krycka oh~ huge 1984 
bee Collect additional diagnostic information. | 

01! v03-014 KPLO002 P Lieberwirth, 23-Jul-1984 | 

1 : Protect routine SJC_CLOSE_JOB against possible SJH queue_link 

¢ corruption. 

4 13 

5 ! 

$ ! 
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SSNDACC, SSNDSMB, and SSNDJBC services 16-Sep-1 AX-11 $$-32 V4.0-742 Page 2. 
Oe 850 14S of 1382 99: $537 JOBCT i°3 ne isne ee: B32 31 ° (1) | 
: 38 38 i ewe ee eh ort for 20s it COUNT ut ond Se 4 EXTEND QUANTITY | 
. u 
: 60 060 1! item cones for the ee START_QUEUE "MANAGER functTon. Also, 
; o 061 ! } add SJC$_RESERVED_xxx codes. 
. @ $8 1 i VO3-011 JAK0216 cka 19-Jun-1984 
aa 064 1 i Continuation of vOS-016° 
; 65 065 1! 
3 08 B08 1! v03-010 JAKO0203 ryeke hi: iy 
mag 1! Add support for Sy Csac OUNT_NAME, § iit and SJC$_USERNAME 
: $8 944 : } item codes for the $SNDJBC System ooeeenes 
: 70 dt 1 v03-009 GRROOO3 regory . Robert 1g-Sep- -1983 
; 071 1! Make SJC$_DELETE oF E ad invalid option for SJC$ =ALTER. JOB 
rea. 4 1! because delete_permission is now checked only when file is 
3 fe hh ! initially submitted. 
> 75 ie: F v03-008 MLJ0118 Martin L. Jack, 23-Aug-1983 
3 8 bn58 : Change field names, remove temporary access allowed’ code. 
: 78 0078 i VO3-007 MLy0115 Martin L. Jack, 30-Jul-1983 | 
5 R 4d : Changes for job controller baselevel. 
: 3 $081 1! V03-006 MLJ0114 Martin L. Jack, 23-Jun-1983 
3 Hy iat) ! Changes for job controller baselevel and rename from SERVICES. 
: 84 9084 ii v03-005 MLJ0113 artin L. Jack, 26-May-1983 
$ $2 tf ' Changes for job conieet tie baselevel. 
: 7 008? 1! V03-004 MLJ0112 Martin L. Jack, 29-Apr-1983 
; Hy 4434 ' } Changes for job controller baselevel. 
: 90 090 1 | v03-003 MLJ0111 Martin L. Jack, 20-Apr-1983 
3 4 9 1 Correct problem in remote resume. 
aoe 0093 1 | V03-002 MLJ0110 Jack, 18-Apr-1983 
3 4 BBE ' Change STOP_ OUEUE aMANAGER to abort or requeue executing jobs. 
: 96 0096 1! v03-001 MLJ0109 Martin L. Jack 14-Apr-1983 
, oF 0097 1! Changes for job controller baselevel. 
; | 698 0098 1! 
; «99 0099 1 !ee 
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SSNDACC, SSNDSMB, and SSNDJBC services 


COMPLETE_JOB: 
COMPLETE-SRB_OUTPUT_ITEM: 
CREATE_ SRB: 
CREATE-SFM_RECORD: 
CREATE-SJH-RECORD: 
CREATE-SMQ-RECORD: 
CREATE ~SQR-RECORD: 
CREATE-SRQ-RECORD, 
DEALLOCATE-RECORD: 
DELETE_SFM~RECORD: 
DELETE~SJH-RECORD: 
DELETE~SMQ~RECORD: 
DELETE~SQR-RECORD: 
DEQUEUE_OPEN_JOB: 
ENQUEVE_JOB: 
ENTER_PROCESS_DATA: 
FIND CHARACTERISTIC: 

F IND~FORM_NAME : 

F IND~FORM~NUMBER: 

F IND-FORM-REFERENCES, 
F IND-PENDING_JOBS: 

F IND-PROCESS_DATA: 

F IND~ QUEUE : 

F IND-QUEUE_REFERENCES, 
INITTALIZE_QUEUE_FILE, 
JOB_STATUS— MESSAGE 
LOCATE _SRB-OUTPUT_ITEM, 
LOCK_QOEUE-F ILE: 
OPEN-ACCOURTING_FILE 
PAUSE_EXECUTION; 
READ_RECORD 
RELEASE_RECORD: 
REQUEUE STARTING JOBS: 


RESET EXECUTOR QUEUE: 
R XECUTION, 


SEARTH_QUEUES 


SEND_SERVICE RESPONSE _MESSAGE : 


SJC_BATCH SERVIC 

START SYMBIONT_ STREAM, 
STOP_SYMBIONT_ STREAM: 
UNLOCK _QUEUE FILE: 


VALIDATE T_NAME 
WRITE_USER_ACCOONTING_RECORD: 


EXESGL_ACMFLAGS: 
SCS$GB_NODENAME : 
SYS$GB_MAXQUEPRI : 


c 11 
16-Sep-1984 
14-Sep-1984 


NOVALUE, 
UE 


L_ouTPuf : 


L“OUTPUT~ 
L“OUTPUT~ 


NOVALUE 
L_OUTPUT_3, 
L=OUTPUT~4, 


NOVALUE, 
NOVALUE, 


NOVALUE, 
NOVALUE, 
NOVALUE, 


NOVALUE, 
NOVALUE 


L_OUTPUT_4, 
NOVALUE, 


NOVALUE, 


NOVALUE, 
NOVALUE ; 
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vee 2 SSNDACC, SSNDSMB, and SSNDJBC services 16500-1984 00:90? AX-1 


Bliss-32 V4.0-742 
v04 14-Sep-1 1 


1 $s 
JOBCTL.SRCISNDJBC.B32; 


; ? ! 8 ! ROUTINE SJC_ABORT_JOB(SQX_N,SQE,SMQ_N,SMQ)= 

; g 1260 1 !+4 

3 1261 1! 

; 4 1 66 1 ! FUNCTIONAL DESCRIPTION: 

; 5 : o7 : This routine processes the SJC$_ABORT_JOB (SMRS$K_ABORT) request. 
; $ 1265 1 | INPUT PARAMETERS: 

3 8 1 96 1! SQX_N - Record number of SQX. 

3 9 1267 1! SQE - Pointer to SQXx rio: 

; 1268 1! SMQ_N - Record number of SMQ. 

; 1 ! 4 ! } SMQ - Pointer to SMQ. 

; ‘ 1271 1! IMPLICIT INPUTS: 

5 35 : i : MBX - Pointer to buffered mailbox message. 

: : 6 1344 1 | OUTPUT PARAMETERS: 

PR ae pe 

: 239 1598 1 i IMPLICIT OUTPUTS: 

; 240 1278 1! NONE 

> 241 1279 1! 

3 $5 1280 1 ! ROUTINE VALUE: 

; 24 1281 1! Completion status to be returned to requestor. 

: 246 1se6 1! 

: 245 1283 1 ! SIDE EFFECTS: 

; 246 1284 1! NONE 

; 267 1285 1! 

8 iy 

. ee oie 

: 3¢ 1290 SOE REF BBLOCK, ! Pointer to SCX entry 

; 2 1291 MQ REF BBLOCK; ' Pointer to SMQ 

; 2546 1338 LOCAL 

3 @o2 129 DSMQ_N, ' Record number of destination SMQ 
: 256 1294 2 SMQ: REF BBLOCK, ! Pointer to destination SMQ 
3 €or 1295 2 ESMQ_N, ' Record number of executor SMQ 
3 $26 1296 2 ESMQ: REF BBLOCK, ! Pointer to executor S 

3; a 1297 SJH_N, ! Record number of SJH 

: 260 1298 SJH: REF BBLOCK, ' Pointer to SJH 

; 261 +44 STATUS_1, ' Status return” 

3 oe 1300 STATUS_2; ! Status return 

: $87 130 

; + 1308 : For a batch queue, ensure that the entry number is specified. 

: 4 1303 iF - SMQCSMQ$V_BATCH] AND NOT .ITEM_PRESENTCSJC$_ENTRY_NUMBER) 

: 269 1307 RETURN JBC$_MISREQPAR; 

. 

: % 1399 ! If a requeue was specified, ensure that the requestor has W access to the 
5 6, : V Queue and that the type of the new queue is compatible. 

: 275 1 18 iF .1TEM_PRESENTCSJC$_DESTINATION_QUEUEJ 

2 76 1314 THEN 


Page 
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yo4-000 18-808- 1382 90:95:38 JOBCTL.SRCISNDJBC.B32; . (3) 
; 277 1315 BEGIN : 
ae 1 16 DSMQ_N = .VALUE_ DESTINATION Queve tol; : 
; 9 : ! DSMQ™= .VALUE_DESTINATION_QOEUVELT]; : 
1; 281 1319 IF NOT CHECK_W_ACCESS(.DSMQ) ; 
3 § 1320 THEN : 
; 1 RETURN JBCS$_NOPRIV; : 
: 285 § IF .SMQCSMQSV_BATCH] NEQ .DSMQCSMQ$V_BATCH) | : 
: S89 1325 RETURN JBC$_INCDSTQUE; | : 
3 ey 1 $ END; | : 
3 1 ; 
; 290 1328 : 
3 4 : , Find the specified current job. : 
: $98 1331 2 STATUS_1 = SEARCH_QUEUES( | : 
> 29% 13 é QSA_M CURRENT; : 
: 295 133 .SMG_A, .SMQ : 
: 296 1334 (IF TITEM_PRESENTCSJCS$_ENTRY_NUMBER] THEN VALUE_ENTRY_NUMBER ELSE 0), 0, : 
: 297 1335 CHECK_D_ACCESS, ; é 
: 298 1336 QSM_K_REMOVE_ INACTIVE ; 
; 299 1337 SJH-N, SJH, ESMQ_N, ESMQ); ; 
; 300 1338 2 IF NOT -STATUS.1 THER RETURN .STATUS_1; ; 
et: | 
: 308 it 9d If the job is executing, request the executor to abort it. | ; 
: 305 1368 if .SJHCSJH$V_EXECUTING) : 
; 306 1344 THEN ; 
3; 307 1345 BEGIN | : 
; 308 1346 3 
; +4 ot If a previous abort is in progress, refuse this request. | : 
: 311 1349 if .SJHCSJH$V_ABORTING) | ; 
; \¢ 1329 OR Pa SJHSV_ABORTED]J : 
: 314 1338 RETURN JBCS$_INCOMPLETE; ; 
; 315 135 : 
; 16 1354 3 
: 317 1355 IF .ITEM_PRESENTCSJC$_REQUEUE) : 
; 18 1356 THEN 3 
: 319 1357 4 BEGIN : 
; $9 1328 4 ae ; : 3 
: $3 1323 2 If a requeuve was specified, ensure that the job is allowed to restart. : 
; $8 1361 4 if NOT .SJHCSJHSV_RESTART) : 
3 326 1396 4 3 
3; 325 1363 4 RETURN JBC$_NORESTART; 3 
; $$ 1364 4 : 
: 7 1365 4 3 
: $8 : $6 ? Process the subsidiary parameters. : 
; $9 1368 4 SJH[SJH$V_REQUEUE] = TRUE; ; 
: 3! 1 69 4 SJH[SJH$V-REQUEUE_HOLD) = FALSE; : 
; é 1370 4 SJHESJH$B~REQUEUEPRIORITY] = .SJHCSJH$B_PRIORITY); ; 
; 3 1371 4 SJHCSJH$L-REQUEUE- QUEUE _LINK] = 0; : 


14-Sep-1984 JOBCTL.SRCISNDJBC. 835; (3) 
IF_ .ITEM_PRESENTCSJCS$_DESTINATION_QUEUE] 


" SJMCSJHSL_REQUEUE_QUEUE_LINK] = .DSMQ_N; 


IF st TER_PRESENTCSJCS_WOLDJ 
SJHCSJHS$V_REQUEVE_HOLD] = TRUE; 


IF_ .ITEM_PRESENTCSJCS$_PRIORITY) 


$ . SJHCSJH$SB_REQUEUVE_PRIORITY] = .VALUE_PRIORITY; 

88 : 

89 

+ Execute the actual abort. 

4 STATUS_2 = ABORT_EXECUTOR_JOB(.ESMQ_N, .ESMQ, .SJH_N, .SJH); 
94 

95 REWRITE_RECORD(.SMQ_N); 

% REWRITE-RECORD(.SJH_N); 

9 RETURN -STATUS_2; 

98 D; 

99 

00 

01 

08 ESMOCSMO$B_CURRENT_JOB COUNT] .ESMQCSMQ$B_CURRENT_JOB_COUNT] - 1; 
04 2 FIND PENDING JOBS( (CESMO N .ESMQ); 

0g REWRITE_RECORD(. ESMO_N 


IF .ITEM_PRESENTCSJC$_REQUEUE) 
THEN 


BEGIN 
APPLY_SJH_OPTIONS(.SJH); 
ENQUEDE _JOB(.SJH_N, .SJH); 
seURITE “RECORD. SJH_ N); 


ELSE 


SINE SJHSV DELETED) = TRUE; 
COMPLETE_JOB(.SJH_N, .SJH, .SMQ, 0); 


4 
4 
4 
4 
4 
4 
4 
4 
4 
& 
& 
4 
4 
4 
The job is not executing. Process the request immediately. 
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REWRITE RECORD(.SMQ_N); 
SS$_NORMAL 
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B60 14- ets 90:95:28 JOBCTL.SR RCISNDJBC. 833: - (3). 
-PSECT COMMON,NOEXE, OVR,2 
00000 DIAG =STONGL KB wn 
00000 DIAG_TRAC 


00060 titel 7 
000c0 DIAG FLAGS: : 
000¢4 WORK AREA: ye | 
000F0 SNDJBC_COUNT et 
00174 GETQUI_COUNT i 
0019C SNDACC_COUNT: " 


00188 SNDSMB -COUNT : 
00200 DIAG STORAGE END 
90200 LAGS: .BLKB 
00204 TRACE “DUMP STSFL 
00208 THIS_SYSiD: 
.BLKB 


0020€ -BLK 
00210 CUR_TIME: 


00218 HOURLY_TIMEs” 
00220 HOURLY “PARAMS: | 
00234 SYMBIONT.” “COUNT: ‘ | 
00238 QUEUE -REFERENCE =fOUNT: | 
| 
| 
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0023¢ MBX “MESSAGE. COUNT : 
-BLRB 4 
90340 : -BLKB 4 
.BLKB 4 
00 48 max END -FREE QUEU 
00270 NONAST WORK cut | 
00278 BCB_FREE Uist: | 
0027¢ BcB -ACTIVE LIST: 
00280 GOL_FREE UST: 
00284 GaL -ACTIVE LIST: 
00288 OPEN_GETQUI LIST: 
-BLRB 
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SND JBC SSNDACC, SSNDSMB, and SSNDJBC services 15-5 Sep-19 AX=11 Bliss-32 V4.0-742 
/¥04~000 730571 $bc 93: $37 JOBCTL.SRCISNDJBC.B32; 1 


0028C PROCESS DATA LIST: 
00290 SYMBIONT CONTROL: 
00294 SPARE_AREA: 

.BLKB 
002A0 REMOTE -REQUEST. L 
002A8 QUEUE FILE LKSB: 
00280 QuEVE_LOCK LKSB: 
00288 RSP: *BLKB 
02c0 JBC_PRIORITY : 
002C4 JBC_PRIVILEGES: ‘ 
002CC JBC_QUOTAS: 

.BLKB 66 
003 “BLKB 2 
00310 BC Its getne 4 
00314 Que0E_F 


80 
00364 QUEUE_RAB: a 
003A8 QUEUE_NAM: " 
00408 QUEUE_XxAB: i 
00460 QUEUE_RSA: 

-BLKB «255 
0055F -BLKB 
00560 QUEUE.ALG: ‘ 
00564 QUEUE _MBF : 

-BLK 1 
00565 -BLKB 3 
00568 ACCOUNTING PABS: 
00570 ACCOUNTING RABS: 

.BCKB. 8 
00578 ACCOUNT_FAB A: 

-BL 80 
005C8 ACCOUNT_RAB we 
0060C ACCOUNT_NAM A: ad 
0066C ACCOUNT_RSA A: 

.BLRB 255 
00768 -BLKB 

76C ACCOUNT_FAB B: 

-BLRB 80 
007BC ACCOUNT_RAB B: 

-BLRB 68 
00800 ACCOUNT_NAM B: on 


-BLRB 
00860 ACCOUNT_RSA_B: 


04-000 


SSNDACC, SSNDSMB, and SSNDJBC services 


yb-Bep-1966 00:97:55 yayett aL ing-32 4.0274 
-BLKB 55 
ieee DIAG_FAB: a 


L 80 
00980 DIAG_RAB: 
BLKB 68 
009F4 MBX_CHAN: 
-BLKB 4 
009F8 MBX_10SB: 
LKB 8 


OOA00 MBX “purréne 
00E00 VALUE _ STORAGE “BASES 
00E00 ITEM PRESENT 
00E20 VALUE -GETQUI BASE: 
00E20 VALUE ~ACCOUNT ING MESSAGE : 
00E26 VALUE_ACCOUNTING TYPES: 
OOE2A VALUE arieR TIME: 

00E32 VALUE ~ALIGNMENT _PAGES 

00E33 VALUE BASE. PRIORITY: 

00E34 VALUE_BAT HOINPUT : 

OOE3A VALUE pach H OUTPUT : 

00E44 VALUE BUFFER COUNT: 

00E45 VALUE CHARACTERISTIC NAME : 
Q0E4B VALUE ~CHARACTERISTIC_NUMBER: 
QOE4C VALUE_CHARACTERISTICS: 

OOESC VALUE “EMECKPDINT DATA: 

00E62 VALUE_CLi: 

00E68 VALUE _CPUCDEFAULS: 
OOE6C VALUE_CPU LIRIT: 
00E70 VALUE _DESTINATION_ QUEUE : 
00E78 VALUE DEVICE NAME: 

QOE7E VALUE_ENTRY_ NUMBER: 

00E82 VALUE ENiRY NUMBER OUTPUT : 
QOE8C VALUE_EXTEND_QUANTITY: 


32 


~ + 
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904-000 yergee~t See Sigh :Fs = AKELT Olisgcae ve-O306 age 
| 


-BLKB 2 
QOEBE VALUE_FILE copies: 


OOE8F VALUE “FILE E IDENT FICATION: | 

00EB3 VALUE at: SETUP MODULES: | 

QOEB9 VALUE.FILE SPECIFICATION: 

OOEBF VALUE FIRST, PAGE: 

OOECS VALUE, FORM DESCRIPTION: | 

OOEC9 VALUE. FORM LENGTH: 

OOECA VALUE_FORM MARGIN. BOTTOM: 
| 
| 


O0ECB VALUE _FORM RARGIN.LEFT: 
00ECD VALUE FORM MARGIN. RIGHT: 
OOECF VALUE_FORM MARGIN. TOP: 
OOEDO VALUE FORM NAME: 
OOED6 VALUE_FORM NUMBER: 
OOEDA VALUE_FORM: | 
OOEE2 VALUE_FORM SETUP MODULES: 
OOEES VALUE_FORM- STOCK: 
OOEEE VALUE_FORM WIDTH: 
VOEFO VALUE GENERIC TARGET: 

LKB~ 996 
01204 VALUE_JOB COPIES: 
012D5 VALUE_JOB LIMIT: 
012D6 VALUE_JOB_NAME : 
012DC VALUE_JOB RESET. MODULES: 
012€2 VALUE JOB S1ZE_MAXIMUM: 
012E6 VALUE_J08 S1ZE_MINIMUM: 
O12EA VALUE_JOB STATUS QUTPUT | 
012F4 VALUE Last PAGE | 
012F8 VALUE_LIBRARY_SPECIFICATION: 


.B | 
O12FE VALUE_LOG QUEUE: 
-BLKB 8 


SNDJ SSNDACC, SSNDSMB, and SSNDJBC services ibese -19 :27:5 AX-11 ss-32 V4.0 e 3 
v04 12-8 08-198e 99:4 1 JOBCT i°s ne isnpube: g354 cs 


01306 VALUE_LOG, SPECIFICATION: | 
0130C VALUE_NOT ; 
-BLKB 6 | 
01312 VALUE_OPERATOR_REQUEST: | 
01318 VALUE _OWWER UIC: 
0131C VALUE “PAGE SETUP MODULES: 
01322 VALUE PARAMETER, ; 
01328 VALUE _PARARETER 3 
0132E VALUE _PARARETER, 3 
01334 VALUE -PARARETER. 4 
133A VALUE _PARANETER_ 
01340 VALUE _PARANETER_ 
01346 VALUE_PARAMETER_ 
0134C VALUE -PARARETER_ 
01352 VALUE -PRIORITY: 
01353 VALUE _PROCESSOR: 
01359 VALUE _PRaTECT 10N 
0135D VALUE -2uEUE: 
01363 VALUE “queue “PILE. SPECIFICATION: 
01369 VALUE “recat ive _PAGE: 
0136D VALUE “RESERVED. INPUT_1: 
0136E VALUE_RESERVED_INPUT_2: 
01370 VALUE “RESERVED. INPUT. 3: 
01374 VALUE_RESERVED_INPUT_4: 
0137A VALUE, RESERVED. OUTPUT." | 
01384 VALUE RESERVED OUTPUT_2: | 
0138 VALUE_ SEARCH. STRING: | 
01394 VALUE_SCSNODE_NAME : 
0139A VALUE WSBEFAULT: 
0139C VALUE_WSEXTENT: 


ern aD oO = COO NOHO. 


SNDJ SSNDACC, SSNDSMB, and SSNDJBC services 16-Se0-1 7:5 AX-11 Bliss-32 V4.0-74 Page 14. 
V04- a 71382 93: $5: 3 jOBCTLS SRC ISNDJBC.B32; o° (3) | 
-BLKB 2 
0139E VALUE -WSQUOTA: , 
| 
013A0 VALUE STORAGE END : | 
JBC$_CLOSEOUT= $ 3 8 
JBC$-NOCMKRNL= 8 
JBC$-NOOPER= 725 
JBCS“NOSYSNAM= 7 404 
JBC$"OPENIN= 663 ‘ 
sree: ie 
= 
JBCS-URITECRR= $6648 
.EXTRN ABORT_EXECUTOR_ JOB 
-EXTRN ALLOCATE RECORD 
-EXTRN APPLY_SFA_OPTIONS 
-EXTRN APPLY SJH~OPTIONS 
-EXTRN APPLY ~SMQ-OPTIONS 
EXTRN APPLY-SQR-OPTIONS 
~EXTRN CHECK RACES. CHECK_W_ACCESS 
.EXTRN CHECK-E-ACCESS, CHECK-D~ACCESS 
-EXTRN CLOSE-ACCOUNTING FILE 
-EXTRN COMPLETE JOB, COMPLETE_SRB_OUTPUT_ITEM 
-EXTRN CREATE_SRB, CREATE_SFM_~RECORD 
“EXTRN CREATE~SJH_RECORD 
SEXTRN CREATE~SMQ~RECORD 
-EXTRN CREATE~SQR~RECCRD 
“EXTRN CREATE ~SRQ-RECORD 
.EXTRN DEALLOCATE RECORD 
-EXTRN DELETE_SFM~RECORD 
ZEXTRN DELETE~SJH-RECORD 
-EXTRN DELETE~SMQ—~RECORD 
-EXTRN DELETE~SQR~RECORD 
-EXTRN DEQUEUE_OPEN_JOB 
.EXTRN ENQUEUE-JOB, ENTER PROCESS_DATA 
TEXTRN FIND _CHARACTERIS 
SEXTRN FINDTFORM_ F IND_FORM_NUMBER 
SEXTRN FINDFORM-REFERENCES 
-EXTRN FIND-PENDING_J 
-EXTRN FINDPROCESS~DAT 
-EXTRN FIND-QUEUE, FIND -QUEUE _REFERENCES 
-EXTRN INITIALIZE QUEUE-F ILE 
-EXTRN JOB_STATUS-MESSA | 
-EXTRN LOCATE _SRB-OUTPUT_ITEM | 
“EXTRN LOCK_QOEUE~FILE 
-EXTRN OPEN-ACCOURTING_FILE | 
-EXTRN PAUSE EXECUTION 
-EXTRN READ_RECORD, RELEASE_RECORD | 
TEXTRN REQUEUE STARTING JOBS 
-EXTRN RESET ERECUTOR QUEUE | 
~EXTRN RESUME EXECUTION | 
.EXTRN REWRITE RECORD, SCAN INCOMPLETE SERVICES 
.EXTRN SEARCH QUEUES, SEND_SERVICE_RESPONSE_MESSAGE | 
-EXTRN SJC_BATCH SERVICE | 
-EXTRN START_SYMBIONT STREAM 
TEXTRN STOP_SYMBIONT_STREAM | 


<o” 
g 


SSNDACC, SSNDSMB, and SSNDJBC services 18-Sen- Aes 1384 99: gf: 33 AX-1 


SND JBC .B32; 


§sa8 V4.0-74 Page B 


z 
= 
wv 
o 
“ 
.. 
on 
~~" 
=< 


NAME 
ONTING_RECORD 


SC “N 
-EXTRN SYSS$GB-MAXQUEPRI | 
-PSECT CODE,NOWRT,2 | 


3,R4,R5,R6,R8,R9,R10,R11 ; 1258 | 


ORD Save R2,R ; 
$6 000000006 EF 9E 0000 MOVAB REWRITE RECORD, R6 - ; 
5 000009" EF 9€ 0000 OVAB ITEM_PRESENT, R5 : 
53 19 AG DO 00010 MOVL  §MQ,"R3 + 1305 
0d OC Ad £9 00014 BLBC 12(R3), 1$ : 
08 03 «AS 06 £0 00018 BBS rT ITEM. PRESENT+3, ; 
50 00048108 &F BO 90010 MOVL #295176, RO : 1307 
2D 03 «AS 02 E1 00025 1$: BBC 42. yen PRESENT 143, 3$ + 1313 
54 70 AS DO 0002A MOVL E_DESTINATION_QUEUE, DSMQ_N : 1316) 
43 74 AS DO 000 : MOVL VALUED ~DESTINATION® QUEUE+4, DSM : 1317 
58 DD 000 PUSHL DS + 1319 
000000006 EF 01 FB 0034 CALLS #1, CHECK_W_ACCESS ; 
08 50 £8 00038 BLBS oR ; | 
50 00048020 8F DO 0003E MOVL #294944, RO + 1321 
04 0004 RET : 
50 0c AB OC A3 8D 00046 2$: XORB3 12(R3), 12(DSMQ), RO + 1323 
08 50 €9 0004C BLBC =o ; 
50 00048120 8F DO 0004F MOVL #295200, RO : 1325 
04 00056 RET : | 
02 DD 00057 3s: PUSHL #2 : 1331) 
000000006 ai 9F 00059 PUSHAB CHECK_D_ACCESS ; 
E D4 0005F CLRL  -(SP)~ ; | 
08 03 AS 06 Fl 90061 BBC #6, ITEM_PRESENT+3, 4$ + 1334) 
50 7E AS SE 00066 MOVAB VALUE_ENTRY_NUMBER, RO : | 
50 DD 0006A PUSHL RO : 
02 11 0006C BRB 5$ : 
43 D4 OOO6E 4$: CLRL -(SP) 3 | 
53 DD 00070 5$: PUSHL R3 : 1333 | 
0c AC DD 0007 PUSHL  SMQ_N ; | 
10 DD 0007 PUSHL #1 : 1331. 
000000006 EF 07 FB 007 CALLS #7, SEARCH QUEUES : 
01 50 007E BLBS  STATUS_1, &$ : 1338) 
4 081 RET ; | 
5 10 Ad 9E 00082 68: MOVAB rset R2 > 1343 | 
72 ® 03 E1 000 BBC 13$ : 
2 a a 
$0 00048138 BF Bo 0091 78: ROVE £8838 : 1382 | 
3F 11 AS 1 €1 0099 8$: BBC : ITEM, PRES NT#17, 12$ : 1355. 
08 OE Ad 1 EO i BBS 4 14(S > 1361. 
50 00048008 &F p OOA MOVL #2951 138° we > 1363. 
4 OOOAA RET ; | 


} 
12 
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04-000 1e-Sep-1984 9039537 JOBCTL SREISNDJBC B32. . a 
nt 1 88 OO00AB 9S: BISB2 #1, 1(R2) : 1368 
a ns 03 BA QDAr BICB a 1(R3} + 1369) 
O17E C¢ 0170 C9 90 00083 MOVB : {(SJH), 382(SJH) + 1370) 
138 C¢9 D4 OOOBA CLRL 12(SJH) : 1371) 
05 93 AS 2 £1 000B BBC #2, ITEM_PRESENT+3, 10$ + 1374) 
01 69 4 BO o¢ MOVL  DSMQ_N, 312(SJH) + 1376. 
08 AS 9 CB 10$:  TSTB ITEM_PRESENT® > 1379. 
04 18 000CB BGEQ 1$ F 
01 A 02 88 000CD BISB2 a3. 1(R2) ; 1381) 
07 10 A 0 FI 0001 11$: BC #2. ITEM_PRESENT+16, 12$ + 1384) 
O17E 9 0552 C5 90 00006 MOVB VALUE_PRTORITY, 382(SJH) + 1386 
7E 58 7D 90000 12$:  MOVQ  SJH_N; =(SP) + 1392 
7E SA 7D 00 EO MOV &SMO_N, =(SP) : | 
000000006 EF 04 FB OOOE CALLS #4, ABORT EXECUTOR_JOB ; 
4 50 DO OOOEA MOVL RO, STATUS_2 : 
0c AC DD OO0ED PUSHL SMO_N : 1395) 
66 01 FB OO0FO CALLS #1, REWRITE_RECORD ; | 
58 DD OOOF PUSHL S$JH_N : 1396) 
6b 01 FB 000F5 CALLS #1, REWRITE_RECORD ; 
50 54 pO 000F8 MOVL § STATUS_2, RO + 1397 
04 000FB RET ; 
0115 CB 97 OOOFC 13$ DECB 27 (ES MQ) : 1403) 
7E 5A 7D 00100 MOVQ ESMQ_N, =(SP) : 1404, 
000000006 EF 02 FB 00103 CALLS #2, oF ino. PENDING_JOBS ; 
5A DD OO10A PUSHL ESMa > 1405. 
66 01 FB 0010C CALLS REURITE RECORD ; 
1A 11. AS 01 €1 O010F BBC no TEM_PRESENT+17, 14% + 1408 | 
59 DD 00114 PUSHL SJH + 1611 
00000000G_ EF 01 FB 00116 CALLS #1, APPLY_SJH_OPTIONS é 
7E 58 7D 00110 MOVQ SJH_N, ~(5P) s 1412 
000000006 EF 02 FB 00120 CALLS #2, ENQUEUE_JOB : 
58 DD 00127 PUSHL SJH_N 3 1413 
66 01 FB 00129 CALLS #1, REWRITE_RECORD ; 
11 11 0012¢ BRB 15$ + 1408 
62 04 88 OOizE 14$: BISB2 #4, (R2) : 1417 
fe D4 00131 CLRL = = (§P) : 1418 | 
53 DD 00133 PUSHL R3 : 
7E 58 7D 00135 MCVQ SJH_N, =(SP) : | 
000000006 EF 04 FB 00138 CALLS #4, COMPLETE _JOB ; 
OC AC DD 0013F 15$: PUSHL  SMQ_ : 1422. 
Ab 01 FB 00142 CALLS #1, REWRITE_RECORD : | 
50 01 DO 0014 MOVL #1. RO + 1426 | 
04 00148 RET ; 


; Routine Size: 329 bytes, Routine Base: CODE + 0000 


2 eee Se —— — — 
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SSNDACC, SSNDSMB, and S$SNDJBC services 16-Sep-1984 00: 92:3 AX-11 Bliss-32 V4.0-742 Page 17 
14-Sep-1984 :57:1 JOBCTL.SRCIJSNDJBC.832;1 (4) 

: 388 1425 1 ROUTINE SJC_ADD_FILE= : 
Cea ce ti 7 
i 39 1429 1 | FUNCTIONAL DESCRIPTION: 
; Br 1? ? ! This routine processes the SJCS_ADD_FILE (SMRSK_ADDFIL) request. ‘ 
: 395 14 é 1 | INPUT PARAMETERS: : 
aes Bl a 2 
: 398 1435 1! IMPLICIT INPUTS: : 
; ibe 1? $ : MBX - Pointer to buffered mailbox message. : 
: 401 1438 1 | OUTPUT PARAMETERS: : 
oes 2 
: 404 1441 1 | IMPLICIT OUTPUTS: : 
in cin feo : 
: 407 1444 1 | ROUTINE VALUE: : 
3 rt et : Completion status to be returned to requestor. : 
: 410 1447 1 | SIDE EFFECTS: | : 
: 411 1448 1! NONE | ; 
: ag 1449 1! | ; 
s 461 1450 1 i- : 
: tis 1ae3 5 BEGIN ; 
> 416 1288 2 LOCAL : 
: 417 1454 2 SJH_N, ! Record number of SJH 3 
; 418 1455 2 SJH: REF BBLOCK, ' Pointer to SJH : 
; 419 1456 § SOR_N, ' Record number of SQR : 
: 4620 1457 SQR: REF BBLOCK, ' Pointer to SQ : 
; $s) 1458 § SQR_N2, i Record number of Last SQR for job : 
; 422 1459 QR 2: REF BBLOCK, ! Pointer to last SQR : 
s 623 1460 2 STATUS_1, i Status return 3 
: 426 1461 2 STATUS “2: ' Status return : 
: 8s 1e8¢ 3 
; ri 4 Hee: § Find an open job owned by this process, but do not dequeue it. 
: 499 1466 if NOT FIND_PROCESS_DATA(PDE_K_OPEN_JOB, .MBXCACMSL_PIDJ, FALSE; , SJH_N) ; 
: 631 1468 RETURN JBC$_NOOPENJOB; : 
: 03 129 
: rr 160) Read the job record. ; 
: 436 1273 SJH = READ_RECORD(.SJH_N); : 
. oe: 3 
; re 1e78 Allocate the file record. ; 
: 441 1078 ST ATUS_1 = CREATE_SQR_RECORD(.SJH; 30: -N, SQR); : 
: 44g 147 IF NOT~.STATUS_1 THEN"RETURN .STATUS_ : 
3: 64 1639 

3; 666 1481 


Te — — 
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14-Sep-1984 12:57:1 JOBCTL.SRCISNDJBC..B32; 


Apply options to the file record. 


SJH 
END 


re {| 
4 4 
te9 cB STATUS 2 = well _SQR_OPTIONS(.SJH, .SQR); 
485 if NOT” .STATUS_2” 
136 BE hewn 
451 3 SORE SORSY DELETE FILE] = FALSE; 
43¢ DELETE San RECORB(.SOR_N, .SQRS; 
45 90 STATUS _2; 
454 91 ; 
8 38 
437 Be Enqueue the file record to the end of the file queue on the job header. 
459 96 if .SJHCSJHSL_FILE_LIST] EQL 0 
460 a THEN ace 
99 Sant Srmgy_ SEQUENCE] = 1; 
+ SJHS$SL_FILE_LIST] = .SQR_N; 
0 
08 


READ_RECORD(SQR_N2 = .SJHCSJHSL_FILE_ LIST _END)); 
SOR eeynsG SEQUENCE) = .SaR _2CSYMSW_ SEQUENCE] ~+ 1; 
SOR_2CSYMSL_LINK] = . SQR_N? 

REWRITE TRECORD(. SQR_N2); 


3 
END 
SJHESJHSL FALE LIST -END] = .SQR_N; 
REWRITE_RECORDT. SQR-N 
g REWRITE “RECORD(. SJH “ND: 
2 
2 
1 


i kd hd ht 
PPPS AAS EE BS BS PEPE 


mo 


S$_NORMAL 
ND? 


OE3C 00000 SJC_ADD_FILE: 
-WORD Save R2,R3,R4,R5,R9,R10,R11 


55 000000006 EF 9E 00002 MOVAB READ_RECORD, R 
54 00000000G EF 9E 00009 MOVAB REWRITE_RECORD, R4 
7E 04 00010 CLRL = = (SP) 
50 00000000" EF DO 0012 MOVL MBX, RO 
28 AQ DD 0001 PUSHL  40(RO) 
0 DD 0001C PUSHL 
000000006 EF 9 FB 00018 CALLS #3, FIND_PROCESS_DATA 
3 A D0 000 MOVL R16, R3 
08 50 £8 900 8 BLBS 
50 00048048 8F DO 00028 MOVL #294984, RO 
04 000 : RET 
53 DD 00033 1$: PUSHL  S$JH_N 
65 gi FB 0035 CALLS #1, READ_RECORD 
59 0 pO 00038 MOVL RO. SJH 
59 DD 00058 PUSHL JH 
00000000G_ EF 01 FB 00030 CALLS #1, CREATE_SQR_RECORD 


12 
SSNDACC, SSNDSMB, and SSNDJBC services 1h-96 -1984 27:5 AX-11 Bliss-32 V4.0-742 Page 19 
127 908-1 382 90: 9537 JOBCTL.SRCJSNDJBC.B32;1 oF 5 v04 
SE 50 €9 00044 BLBC. = STATUS_1, 5$ : 1479) 
0A00 §=68F «BB 00047 PUSHR #*M<RO-RI1> + 1484 
000000006 EF F 4 CALLS 2, APPLY _SQR_OPTIONS : 
j DO 0005 MOVL RO, STATU j : 
1 00 BLBS sTATUS 2,2 + 1485. 
OC AB : A 000 BICB2 #1, 12tSOR) ; 1488 
7E A 7d 0005¢ MOV  SQR_N, =(SP) + 1489 
000000006 EF 98 FB F CALLS #2, DELETE SQR_RECORD : | 
0 B $6 MOVL STATUS_2, RO 3 1490. 
4 6 RET : 
00F4 C9 D5 0006A 2$: TSTL 44(SJH) + 1496 
B 1 $F BNE : 
06 AB 1 8 MOVW #1, 6(SQR) + 1499 
O0F4 C AD 74 MOVL  SQR_N, 244(SJH) : 1500 
18 11 00079 BRB + 1496 
52 00F8 £9 DO 0007B 3$: MOVL  248(SJH), SQR_N2 + 1504 
2 DD 9008 PUSHL  SQR_ : 
+) 01 FB 0008 CALLS #1, READ_RECORD : 
06 AB 06 AO 01 Al 0008 ADDW3 #1, 6(SQR 2), 6(SQR) + 1505 
60 5A DO 00088 MOVL R_N, (SOR_2) > 1506 
52 DD O008E PUSHL SQR7 + 1507 
64 01 FB 00090 CALLS #1, REWRITE_RECORD ; 
OOF8 C9 5A DO 00093 4$: MOVL SQR_N, 248(5JH) : 1509 
SA DD 00098 PUSHL + 1510 
64 01 FB OO09A CALLS #1, REWRITE_RECORD ; 
53 DD 0009D PUSHL  SJH_N + 1511 
64 01 FB 0009F CALLS #1, REWRITE_RECORD ; 
50 01 pO 000A2 MOVL #1. RO : 1515 
04 OOOAS 5$: RET F 


; Routine Size: 166 bytes, Routine Base: CODE + 0149 
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v04= 1e-8eb-}98e $9:87:1 JOBCTL.SRCISNDJBC.B32; oe 8 vod 
3 : : 1317 } ROUTINE SJC_ALTER_JOB(SQX_N,SQE,SMQ_N,SMQ)= 
; cBs 1 \8 1 lee 
3 § 151 3 
; 484 1520 1 ! FUNCTIONAL DESCRIPTION: 
3 ? 5 : 1 : This routine processes the SJC$_ALTER_JOB (SMRSK_ALTER) request. 
; rh 13 ‘ 1 ! INPUT PARAMETERS: 
; 488 15246 1! SQX_N - Record number of SQX. 
; 489 1525 1! E - Pointer to SQx entry. 
; 490 1526 1! SMQ_N - Record number of SMQ. 
; 491 1527 1! SMQ - Pointer to SMQ. 
; 49 1526 1! 
; 69 1529 1! IMPLICIT INPUTS: 
; t3¢ 12 . : MBX - Pointer to buffered mailbox message. 
; 496 15 ¢ 1 ! OUTPUT PARAMETERS: 
: 497 15 1! NONE 
; 498 1338 1! 
; 499 1535 1 ! IMPLICIT OUTPUTS: : 
; 500 1536 1! NONE | if 
; 501 1537 1! 
3; 1538 1 ! ROUTINE VALUE: 
; 50 1539 1! Completion status to be returned to requestor. 
: 504 1540 1! 
; 505 1541 1 | SIDE EFFECTS: | 
; 506 1366 1! NONE 
; 507 1543 1 | | 
; 508 1544 1 !-- 
; 509 1545 1 
; 510 1546 BEGIN 
s 3) 1547 MAP 
: 2\§ 1548 SQE: REF BBLOCK, ! Pointer to SQX entry 
3 1549 SMQ: REF BBLOCK; ! Pointer to SMQ 
; «514 1550 § LOCAL 
: 315 1551 QH REF BBLOCK, ! Pointer to SQH | 
; 516 1236 2 SMQ: REF BBLOCK, ' Pointer to destination SMQ 
3 27 155 § ESMQ_N, ! Record number of executor SMQ | 
; 518 1554 ESMQ: REF BBLOCK, ! Pointer to executor SMQ 
; 519 1555 SJH_N, ' Record number of SJH 
: $20 1556 SJH: REF BBLOCK, ' Pointer to SJH 
3 fey 1557 SQR_N ! Record number of SQR 
; 256 1558 SOR"NS, ' Record number of successor of SQR 
3 H 1559 SQR: REF BBLOCK, ' Pointer to SQR 
; 4 1560 STATUS_1, ! Status return 
; 525 1561 STATUS_2; ! Status return 
i; 5326 1266 
». Bar 156 é ee 
3; 3 ; 1288 Ensure that the requestor has W access to the log queue if specified. 
: 586 1208 iv . ITEM_PRESENTCSJC$_LOG_QUEUE) 
; 332 1568 IF NOT CHECK_W_ACCESS(.VALUE_LOG_QUEUVE[1)) 
3 2 1362 THE 
: 1570 RETURN JBC$_NOPRIV; 
3 5 1571 
; 536 1572 
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V 14-Sep- JOBCTL.SRCISNDJBC.B32; | 
7 ! If a requeve was specified, ensure that the requestor has W access to the 
Queue and that the type of the new queue is compatible. 
40 if .1TEM_PRESENTCSJC$_DESTINATION_QUEUE 
4) THEN 
4 BEGIN 
rt DSMQ = .VALUE_DESTINATION_QUEUVE(1); 
45 
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IF NOT CHECK W_ACCESS(.DSMQ) 

RETURN JBC$_NOPRIV; 
IF .SMOCSMOSV_BATCH] NEQ .DSMACSMOSV_BATCH] 
up :RETURN JBCS_INCDSTQUE: 
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Search for the specified job. 


STATUS_1 = SEARCH_QUEUES( 
QSA_M OPEN OR-QSM_M_TIMER OR QSM_M_PENDING UR QSM_M_HOLD OR QSM_M_CURRENT, 
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IF .SJHCSJHSV_EXECUTING] 
THEN 


BEGIN 
RETURN JBC$_EXECUTING; 
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7 
8 
9 
0 06 
1 07 
5 09 
4 10 IF .SJHCSJHSV_STARTING 
5 11 THEN 
6 1g BEGIN 
7 1 ESMOCSMO$B_CURRENT_JOB_COUNT] = .ESMQCSMQ$B_CURRENT_JOB_COUNT] - 1; 
8 14 FIND PENDING JOBS(7ESMO_N, .ESMQ); 
y 15 REWRTTE_RECORD(.ESMQ_N); 
30 16 END; 
82 | 
Hy 15 STATUS_2 = APPLY_SJH_OPTIONS(.SJH); 
84 0 IF .STATUS_2 | 
85 1 THEN 
¢ eeeie 
SJHCSJH$SL_JOB_SIZE] = 0; 
4 SQR_N = .SJHCSJH PILE LIST); 
89 5 WHICE .SQR_N NEQ 0700 
90 $ 4 BEGIN 
91 4 LOCAL 
3 8 4 STATUS_3; 
9 9 4 
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14- ~hep- 1384 99: $5 33 JOBCTL.SRCJSNDJBC.B32;1 . (35 
1630 4 SQR = READ_RECORD(.SQR_N); 
1631 4 STATUS _3 ="APPLY_SQR_OPTIONS(.SJH, .SQR); 
16 ; 4 IF -STATU $2 ANDY NOT” »STATUS_3 THEN STATUS_2 = .STATUS_3; 
1633 4 SQR ~SORCSYMSL_LINKJ; 
1634 4 REM Te -RECORD(. ut “i: 
16 5 4 SGR .SQR_NS; 
16 : END; 
138 
1640 2 IF .SJHCSJH$V_OPEN) 
leer § (MEN BEGIN 
1668 a READ Ret RD (SQHSK RECNO); 
1644 Ht SYMSL_CINK QHCSOQHSL OPEN LIST); 
1645 SOHESQHSL OPEN, LI “" 
1666 IF .SJHCSTMSL chit EQL 0 TREN SQHCSQHSL_OPEN List END] = «SJH_N; 
164 ESMQ = READ RECORD(ESMO_N = .SJHCSJH$SL QO0EUE CIN 
1648 ESMOCSMQS$W_OPEN_JOB_COUNT] = .ESMOQCSMQSW_ OPER- 108- COUNT) + 1; 
1649 REWRITE _RECORD(- SH N); 
1650 REWRITE-RECORD(.ESMO_N 
1651 REWRITE RECORD (SGHSK— REENO) ; 
1886 exset™® 
1654 BEGIN 
1655 ENQUEUE_JOB(.SJH_N, .SJH); 
1656 REWRITE-RECORD(.SJH_N); | 
165 END; 
1658 .STATUS.2 
1659 1 END; 
OFFC 00000 SJC_ALTER_JOB: 
.QORD Save R2,R3,R4,R5, RS, R7,R8,R9,R10,R11 : 1516 
57 00000000' EF 9E 90002 MOVAB ITEM_PRESENT+{2, : 
56 000000006 cf 9€ 00009 MOVAB REWRITE RECORD, ; 
OE 67 1 £1 00010 BBC #i, ITEM BReSENTet2. 1$ : 1566 
04F6 C7 DD 00014 PUSHL VALUE_LOG_QUEUE+4 : 1568 
000000006: EF gi FB 00018 CALLS #1, CRECK~W_ACCESS : 
15 0 €9 OOO1F BLBC RQ. 2s : 
20 F7 A? 0¢ E1 99 3 1$: BC #2. ITEM_PRESENT+ : 1576 
58 68 A? DO OVL § VALUE_DESTINATION_ *sutvE+4, DSMQ : 1579 
58 DD 00028 PUSHL DSMQ > 1581 | 
000000006 FF gi FB 99 D CALLS #1, CHECK W_ACCESS : 
8 0 €8 000 BLBS RO $ ; 
50 00048020 &F 60 99 q 2$: HOVL #294944, RO : 1583 
50 10 ac b0 09 F 3$: MOVL.  SMQ, RO > 1585 
51 oc A OC Ad 8D 00043 XORB3 12(RO), 12(DSMQ), RI ; 
98 51 €9 49 BLBC R : 
00048120 BF BO O004¢ MOVL #295200, RO sina 
02 pd 0084 4$: PUSHL #2 : 1593 
000000006 EF 9F 00056 PUSHAB CHECK_D_ACCESS : | 
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-3ep- : H e e 3 
7 4 5 CLRL = (SP) 
72 AP OOF ; PUSHAB VALUE_ENTRY_NUMBER 
7E OC ac 7D 6 MOVQ SMG_N; -(SPY 
1F DD 3 PUSHL 431 
000000006 EF 97 Fe 0 CALLS #7, SEARCH_QUEUES 
1 0 Fs 9 : BLBS STATUS_1, 5$ 
08 10 a9 03 E1 i 5$: BBC #3, 16(SJH), 6$ 
50 000480F8 8F Bo i MOVL #295160, RO 
13 11. Ad 04 £1 OOO7F 68: BBC #4, 17(SJH), 7$ 
6115 Ca 97 0084 DECB 277 (ESM) 
7 A 7D 000 MOVQ ESMQ_N, =(SP) 
000000006 EF Qe FB 0088 CALLS #2, FIND_PENDING_JOBS 
A 0D 0009 PUSHL £ESMQ_N 
66 01 FB 00094 CALLS #1, REWRITE_RECORD 
59 DD 90097 7$: PUSHL  SJH 
000000006 EF gi FB 0099 CALLS #1, APPLY_SJH_OPTIONS 
5 0 D BooAg MOVL RO, STATUS 
x 55 €9 OOOA BLBC  STATUS_2, TOS 
0100 C9 D4 000A6 CLRL 56(SJA) 
52 OOF4 ¢9 D9 OOOAA MOVL 44(SJH), SQR_N 
gp 13 OOOAF 8$ BEQL 0$ 
2 DD 00081 PUSHL SQR_N 
000000006 Ef gi FB 00083 CALLS #1, READ_RECORD 
3 g DO OOOBA MOVL RO, SOR 
53 DD 000BD PUSHL  SQR 
| 59 DD 000BF PUSHL SJH 
000000006 _ EF 02 FB 000C1 CALLS #2, APPLY_SQR_OPTIONS 
06 55 €9 000C8 BLBC STATUS_2,~9$ 
0 50 €8 000CB BLBS  STATUS~3, 9$ 
55 50 DO OOOCE MOVL § STATUS~3, STATUS_2 
54 63 DO 00001 9S: MOVL (SQR), SQR_NS 
52 DD 00004 PUSHL SQR_N 
$6 01 FB 00006 CALLS #1, REWRITE_RECORD 
5 54 DO 00009 MOVL  SQR_NS, SQR™N 
D1 11 o900¢ BRB 8$ 
3¢ 10 Ad 06 £1 OODE 10$: BBC #6, 16(SJH), 12 
01 DD O00E PUSHL #1 
000000006 _ EF 01 FB 00€5 CALLS #1, READ_RECORD 
69 4C Ad D doe¢ MOVL § 76(SQH),~(SJH) 
4C AO 58 00 O00F MOVL SJH_N, 76(SQH) 
69 D5 000F4 TSTL (SJA) 
04 1 OOFG BNEQ 11$ 
50 =A 8 D F MOVL SiH N, 80(SQH) 
5A 0134 C9 DO OOOFC 11$:  MOVL 8TSJH), ESMQ_N 
5A DD 00101 PUSHL ESMQ_N 
000000006 EF gi FB 103 CALLS #1, READ_RECORD 
8 0 DO OO10A MOVL RO SMQ 
0100 cB B6 00100 INCW 256(ESMQ) 
DD 00111 PUSHL SJH_N 
66 gi FB 00113 CALLS #1, REWRITE_RECORD 
A DD 118 PUSHL ESMQ_N 
46 1 FB 0011 CALLS #1, REWRITE_RECORD 
1 DD 00118 PUSHL #1 
¢ 11 O10 BRB 13$ 
7E 7D OO11F 12% MOVQ SJH_N, -(SP) 
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000000006 EF HY ( ie CALLS Sih ENQUEUE _J08 : —e 


98 1% 13$: Rove a), neegite RECORD 


US_2, RO > 165 
; Routine Size: 306 bytes, Routine Base: CODE + O1EF 


RET" 
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v04 122888219 4 99:95:7 JOBCTL. SRC ISNDJBC..B32; te BS 
660 OUTINE SJC_ALTER_QUEUE(SQX_N,SQE,SMQ_N,SMQ)= | 
006 '+¢ 
66 i 
664 1 | FUNCTIONAL DESCRIPTION: 
665 ; This routine processes the SJCS_ALTER_QUEVE request. 


' INPUT PARAMETERS: 
; X_N Record number of SQX. 
SQE Pointer to SQx artery 
Record number of SMQ. 
Pointer to SMQ. 
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sma~ 
i IMPLICIT INPUTS: 
MBX 
' 

' 

' 

( 
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i] 

] 

' 

' 

] 

' 

' 
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Pointer to buffered mailbox message. 
i QUTPUT PARAMETERS: 
NONE 


i IMPLICIT OUTPUTS: 
i NONE 


{ Completion status to be returned to requestor. 
i SIDE EFFECTS: 
NONE 
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BEGIN 
MAP 
SQE: REF BBLOCK, ' Pointer to SQX entry 
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REF BBLOCK; ! Pointer to SMQ 
LOCAL 

: STATUS; ! Status return 
ees 28 : Ensure that the requestor has E access to the queue. 
665 90 if NOT CHECK_E_ACCESS(.SMQ) 
667 4 RETURN JBC$_NOPRIV; 
8 
oo B23 : Apply the specified queue parameter changes. 
67@ $ STATUS = APPLY_SMQ_OPTIONS(.SMQ); 
67 3 IF NOT .STATUS THER RETURN .STATUS; 
674 UPDATE_SQX_ENTRY(.SQE, .SMQ_N, .SMQ); 
in i | 
677 i : Try to schedule jobs that may have been enabled by the changes. 
£75 14 2 FIND_PENDING_JOBS(.SMQ_N, .SMQ); | 
680 15 
681 16 
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; Routine Size: 84 bytes, Routine Base: CODE + 0321 


0004 00000 SJC_ALTER_QUEUE: ; 

.QORD Save R2 ; 1660) ; 

52 000000006 EF 9E 9002 MOVAB REWRITE RECORD, R2 pa : 

000000006 EF Qi FB o000¢ CALLS 1, CHECK_E_ACCESS 2 : 
50 00048020 &F oO 0016 MOVL #254986, RO > 1702 : 

10 AC DD OOO1E 18 PUSHL  $MQ > 1707 ; 

000000006 EF gi Fe 00 1 CALLS #1, APPLY_SMQ_OPTIONS : ; 
38 0&9 00028 BLBC ©=- STATUS, 28 : 1708 ; 

£ oc AC 7 00 3 MOvG —§MO_N, ~(SP) : 1709 : 

000000006 f a 03 FB 0032 CALLS #3 UPDATE SQX_ENTRY : seat : 
000000006 EF ng 22 FB 900380 CALLS #2.F IND_PENDING_JOBS sine ; 
62 01 FB 00047 CALLS #1, REWRITE_RECORD : : 

OC AC DD 0004A PUSHL y : 1718 ; 

62 01 FB 0004D CALLS #1, REWRITE RECORD : 3 

50 01 0 00050 MOVL «86 #1, R : 1720 ; 

04 00053 28: RET : ; 


: ; ; ‘ é | SNE 
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v04= -Sep-1984 JOBCTL.SRCISNDUPC. v04 
; 6 7 i 1 ! ROUTINE SJC_ASSIGN_QUEUE (SQX_N,SQE,SMQ_N,SMQ)= 

Bi lh 

: 691 1705 1 | FUNCTIONAL DESCRIPTION: 

: 23 \f § : This routine processes the SJCS_ASSIGN_QUEUE (SMRSK_REDIRECT) request. 

: 694 1728 i INPUT PARAMETERS: 

; 695 17 1: SQX_N = Record number of SQX. 

3 038 1730 1! SQE - Pointer to SQX entry. 

; 69 1731 1! SMQ_N - Record number of SMQ. 

: $98 if ¢ } smQ~ - Pointer to SMQ. 

; $30 1734 1 1 IMPLICIT INPUTS: 
: 4} 4 5 : MBX - Pointer to buffered mailbox message. | 
: 70 17 5 1 | OUTPUT PARAMETERS: 

eee ipa 
; 206 1740 1 § IMPLICIT OUTPUTS: 

ie eed | 
: 709 1703 | i ROUTINE VALUE: | 
: ey rte : Completion status to be returned to requestor. | 
3 rie 1746 3 i SIDE EFFECTS: | 
; 71 174 1! NONE 
; 716 1748 1! | 
3; 715 1749 1 !e- 

; 716 1750 1 
3 ats 173) BEGIN 
: 719 178 SQE: REF BBLOCK, ! Pointer to logical SQX entry 

: Gs 1738 sores SMQ: REF BBLOCK; ! Pointer to logical SMQ | 
: 153 1756 DSMQ_N, ! Record number of execution SMQ | 
: 723 1757 DSMQ? REF BBLOCK; ! Pointer to execution SMQ 

Wes 1738 | 
; re6 1769 Pick up a pointer to the destination queue. 
; 458 1768 DSMQ_N = VALUE DESTINATION QuevE COI; 

; 729 176 DSMQ™ = VALUE _DESTINATION_QOEUE : 

2 ee: | 
; 44 1706 : Ensure that the requestor has E access to both queues. 

; 734 1768 iF NOT CHECK_E_ACCESS(.SMQ) | 
: ay, 179) OR ae CHECK-E_ACCESS(.DSMQ) 
; 539 1771 RETURN JBC$_NOPRIV; 

im lf 
: 740 1774 ' Ensure that the logical queue is not the same as the execution queue, and 
; el ive? that both are symbiont queues, and that the execution queue is one. | 
: 74 1779 iF .SMQ_N EQL .DSMQ_N 


N 12 | 
16-Sep-1984 00:27:5 AX=11 Bliss-32 V4.0-74 Pa 8| 
18-808- 1382 90: 9537 JOBCTL.SRCISNDJBC.B32; - Be 
: Thb 17 OR .SMOCSMOSV_BATCH] | 
: 765 1779 OR :DSMQLSMQSV_BATCH) 
> 76 1780 2 OR .DSMQCSMQSV"GENERIC_QUEUE) 
: S 1f 1 OR ,bsne SMQS$L"ASSIGNEB_QUEUE_LINK] NEQ 0 
: 74 1588 RETURN JBC$_INCQUETYP; 
im oi 
; , é 7 § ! Ensure that the logical queue is not running. | 
; 134 1788 if .SMOCSMQSL_STREAM_SCT) NEQ 0 
me. 1790 RETURN JBC$_STARTED; 
2: ee) sie 
; £28 1738 Finally, make the data structure modification. 
: 761 1795 2 SMOCSMQSL_ASSIGNED_QUEUE_LINK] = .DSMQ_N; | 
: 76 1796 UPDATE SQR_ENTRY(.SQE, .SMQ_N, .SMQ); 
; 76 179 REWRITE_RECORD(.SOX_N); 
> 764 1798 REWRITE~RECORD(. SMQ~N) ; | 
: 78? 1800 | 
: 76 1801 2 SS$_NORMAL | 
; 768 1802 1 END; | 
007C 00000 SJC_ASSIGN_ QUEUE: 
.WORD Save R2,R3,R4,R5,R6 : 1721 
56 000000006 EF 9E 00002 MOVAB REWRITE RECORD, R6 ; 
55 00000000G_ EF 3 00009 MOVAB CHECK_E-ACCESS, R5 ; 
54 00000000' EF DO 0001 MOVL § VALUE-DESTINATION QUEUE, DSMQ_N ; 1763 
5 00000000" EF D0 0001 MOVL VALUE RESTINATION_ QUEUE +4. DSMa : 176 | 
5 10 AC DO BOO1E OVL SMa, R : 1768 
53 DD 000 PUSHL R3 ; 
65 01 FB 00024 CALLS #1, CHECK_E_ACCESS : | 
08 50 €9 00027 BLBC ~=._«aRO._:*1 : | 
52 DD O002A PUSHL DSMQ ; 1769 
65 01 EB 002C CALLS #1, CHECK_E_ACCESS : 
08 50 £8 O002F BLBS RO 3 : 
00048020 8F BO 99 2 1$: MOVL #294944, RO 3 1771 | 
54 OC AC D1 0003A 28: CMPL MQ_N, DSMQ_N 1777 | 
ie 1 0055 BEQL : | 
OE Oc AS’ £8 0004 BLBS  12(R3), 3$ : 1778 
OA - ws 0044 BLBS  12(DSMQ), 3$ : 1779 | 
05 OD A2 02 £0 00048 BBS #2, 13(DSmQ), 3$ : 1780 | 
- G p 004 sit 44 (DSMQ) : 1781 | 
50 00068118 BF 00 3 3$: ROVE #295192, RO 1783 
OOFC C3 DS OOOSA 4s: TSTL 52(R3) : 1788 | 
3 BEQL : 
50 00048058 8F D0 0006 MOVL #295000, RO : 1790 
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04 00067 RET F 
2c AB 54 00 C0068 S$: MOVIL asm N, 44(R3) * 1795 
BD $006¢ PUSHL R + 1796 

7E 08 AG 7 mova (SP) ; 
000000006 EF 03 FB CALLS RB “UPDATE. SQX_ENTRY : | 
04 AC DD 0007 PUSHL § + 1797, 
rr) O01 FB OO07C CALLS #1,"REWRITE_RECORD ; | 
Oc AC DD 0007F PUSHL : 1798 | 

66 01 FB 00082 CALLS #1,” REWRITE RECORD : 
50 1 DO 0008 MOVL «o#1, RR : 1802 

04 00088 : 


; Routine Size: 137 bytes, Routine Base: CODE + 0375 
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; 770 1803 1 ROUTINE SJC_BATCH_CHECKPOINT= 33 
; 771 1804 1 31 
; ie 1805 1 !+¢ 3 
; 7 1806 1! 37 
> 774 1807 1 | FUNCTIONAL DESCRIPTION: 3] 
; 079 1808 | This routine processes the SJC$_BATCH_CHECKPOINT request. : } 
: +79 1816 1 ! INPUT PARAMETERS: 3 1 
; 778 1811 1 NONE | 7] 
; 779 181¢ 1! 33 
; 780 1813 1! IMPLICIT INPUTS: 39 
: ay 13i% | } MBX - Pointer to buffered mailbox message. . : 
3 £e 1816 1 ! OUTPUT PARAMETERS: s 
> 784 1817 1! NONE :] 
; 785 1818 1! 37 
; 786 1819 1! IMPLICIT OUTPUTS: | $1 
; 787 1820 1! NONE 2 
; 788 1821 1! | 3) 
; 789 18 § 1 ! ROUTINE VALUE: : 1 
; 790 1823 1! Completion status to be returned to requestor. ‘ 1 
>; 791 1824 1! | * 
3 re 1825 1! SIDE EFFECTS: : 1 
; 793 1826 1 | NONE | 71 
> 794 1827 1! | 2] 
° 795 1828 1 leo i ° 1 
; 7% 18¢9 1 33 
; 797 1830 2 BEGIN 2] 
; 798 1831 2 LOCAL | 7] 
; 799 1832 2 H_N, ! Record number of SJH | i] 
; 800 1833 : JH; REF BBLOCK, i Pointer to SJH | zt 
: 801 1834 STATUS; ! Status return : 
; 802 1835 2 2 
; 803 1836 2 ; - 
; 804 1837 2! If the requesting process is a batch process, find the job record and store 74 
; 805 1838 2 ! the checkpoint information. . 3 
; 806 1839 2! 3 
; 807 1840 2 IF .QUEVE_FABCFABSW_IFI] NEQ 0 | ef 
; 808 1841 é THEN sf 
; 809 184¢ BEGIN 3! 
; 810 1843 3 IF FIND_PROCESS_DATA( 31 
; 811 1844 3 PDE-K_BATCH, .MBXCACMSL_PIDJ, FALSE; | He 
> 812 1845 3 » » SJH_N) : 
; 813 1846 3 THEN : : 
; 814 1847 4 | : 
; 81S 1848 4 SJH_= READ RECORD(.SJH_N); | ‘} 
> Blo 1849 4 STATUS = APPLY_SJH OPTIONS(.SJH); | : 
; 817 1850 4 IF NOT .STATUS-THEN RETURN .STATUS; | 3 | 
; 818 1851 4 REWRITE_RECORD(.SJH_N); ; 
; 819 185¢ 3 ; 2} 
; 820 1853 2 END; | : 
; 821 1854 2] 
; 1856 ¢ SS$_NORMAL : | 
; 824 1857 1 END; He 
71 


| D 13 | 
| SNDJ SSNDACC, SSNDSMB, and SSNDJBC services 16-Sep-1984 AX-11 BL ss-32 V4.0-742 Page 31. SNI 
904-800 14-Sep 219 4 99: $537 JOBCTL.SRCISNDJ8C.B32;1 . hs | vO« 
0£00 00000 suc -BATCH CHECKPOINT : ian seni 
ave g | 
00000000" EF B85 0000 TSTw QUEUE _F FAB+2- ; 1840, 
e be SOOR Ort , + 1843. 
50 00000000' EF DO G900¢ MOVL MBX, RO + 1844. 
28 AO DD 0001 PUSHL 40(RO) : | 
01 DD 00016 PUSHL #1 + 1843) 
000000006 EF 03 FB 90018 CALLS #3, FIND_PROCESS_DATA : 
iE 0 €9 O001F LBC ~—séRO. ‘1 : 
58 DD 90022 PUSHL  SJH_N ; 1848 | 
000000006 EF 01 FB 00024 CALLS #1, READ_RECORD ; 
50 DD 00028 PUSHL SJH + 1849 | 
000000006 EF 01 FB 0002D CALLS #1, APPLY _SJH_OPTIONS : 
0c 50 £9 00034 LBC STATUS, 23 : 1850 | 
5B DD 00037 USHL SJH_N + 1851. 
000000006 EF 01 FB 00039 CALLS #1, REWRITE_RECORD ; 
50 01 D0 00040 1$: MOVL #1. RO : 1857 
04 00043 2$: RET ; 


; Routine Size: 68 bytes, Routine Base: CODE + O3FE 


I kk ee ee ed ed od tn ed 


< 
g 


13 
SNDJ SSNDACC, SSNDSMB, and S$SNDJBC services 16-Sep-1984 00:92? AX-11 Oh legen V4.0-742 Page 32 
14-Sep-1984 12:57:1 JOBCTL.SRCIJSNDJBC.832;1 (9) | 


; 4 g 1838 | ROUTINE SJC_CLOSE_DELETE= : | 
; 8 1860 1 !+4+ 71 
3 4 1861 1! 3 1 
; 0 1396 1 ! FUNCTIONAL DESCRIPTION: 3 1 
> 831 1863 This routine processes the SJC$_CLOSE_DELETE request. : ! 
3; & : 1992 1 ! INPUT PARAMETERS: 3 1 
; 834 1 4] 1! NONE 3 1 
; 835 1867 1! 31 
; 4 1868 1 ! IMPLICIT INPUTS: 3 1 
; tT 136) ! MBX - Pointer to buffered mailbox message. | : | 
; 839 1871 1 ! OUTPUT PARAMETERS: 5s 1 
; 840 187¢ 1! NONE : 1 
: 841 1875 1! Si 
; «84 1874 1 ! IMPLICIT OUTPUTS: 31 
> 84 1875 1! NONE 31 
3: 844 1876 1! $1 
; 845 1877 1 ! ROUTINE VALUE: 3 1 
; 846 1878 1! Completion status to be returned to requestor. : 1 
: 847 1879 1! 3: 1 
; 848 1880 1 ! SIDE EFFECTS: 3 1 
; 849 1881 1! NONE | : 1 
; 850 Hr 1! 3 1 
> 851 1883 1 !<- 3 1 
; S26 1884 1 31 
3; 8 1885 2 BEGIN 3 1 
3; 854 1886 2 LOCAL 31 
; 855 1887 2 H_N, ! Record number of SJH : 1 
; 856 He 2 ; REF BBLOCK; ! Pointer to SJH 3 
s 857 1889 2 37 
; 858 1920 2 : : oF 
; 859 1891 2 ! Find an open job owned by this process, and dequeue it. 2 
; 860 1336 2! a1 
; 861 189 ¢ IF 3 1 
; 862 1894 BEGIN 3 1 
; Bez 1992 3 IF FIND_PROCESS_DATA(PDE_K_OPEN_JOB, .MBXCACM$L_PIDJ, TRUE; , SJH_N) : | 
; 865 1897 NOT DEQUEUE_OPEN_JOB(.SJH_N; SJH) 31 
; 866 1898 | 
: 867 1899 TRUE 3 
: 868 1900 END | 
; 869 1901 THEN 31 
; 70 1306 RETURN JBC$_NOOPENJOB; i. 
: 871 190 3] 
3 378 1904 3] 
; 87 1905 ' Delete the job. 3) 
; 874 1906 ! 3 | 
; 875 1907 2 DELETE_SJH_RECORD(.SJH_N, .SJH); 3 1 
: 876 1908 3 | 
3; 877 1909 3 | 
: 878 1910 SS$_NORMAL 2? 
; 879 1911 1 END? : | 

¢ | 

s | 


F 13 
SSNDACC, SSNDSMB, and SSNDJBC services 16-Sep-1984 0 AX-11 a? ss-32 V4.0-742 P 3 SN 
~060 18-808-1382 99:95:7 JOBCTL. SRCISNDJBC B32: 1 oer 3 vo4 


0E00 00000 svc a te 


Save R9,R10,R11 : 1858. 
01 DD : PUSHL #1 + 1895 
50 00000099" EF 00 VL x, RO : | 
ar he oa 
000000006 FF FB 19 CALLS #3, FIND. PROCESS_DATA : 
L oe 
C E 1 BC =. RO, 1 
A DD OOO1A PUSHL  SJH_N t 1897 
000000006 1 F g CALLS #1, DEQUEUE_OPEN_JOB ; 
8 0 € BLBS) ssi : 
00048048 &F i 6 1$ MOVL #294984, RO + 1902 
7E SA 70 000 F 2$ MOVO.  SJH_N + 1907 
F CALLS #2. 7DELE PSUH. RECORD : 
000000006 EF 2 00 2 te | 
0 1 B0 0038 HOVL #1, R + 1911 


; Routine Size: 60 bytes, Routine Base: CODE + 0442 


a ee ee ed nd od = = = 3 3 =) 3 od = = 3 2 I I 
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SND JBC SSNDACC, SSNDSMB, and SSNDJBC services 1$-se -1984 00:27:5 AX-11 Bliss-32 V4.0-742 Pp 4 SNC 

V 14 ety 7 90: 9537 JOBCTL. §RCISNDJBC B32: 1 aaa St Vv0é 
| 


3 1 1318 1 ROUTINE SJC_CLOSE_JOB= 

3 ¢ 1915 1 

7 ig di 

; 885 1916 1 | FUNCTIONAL DESCRIPTION: | 
; Hy ba : } This routine processes the SJC$_CLOSE_JOB (SMRSK_CLSJOB) request. 

: 888 1318 {INPUT PARAMETERS: | 
: 890 1921 1: | 
; 91 19 § 1 ! IMPLICIT INPUTS: 

: ; i ? : MBX - Pointer to buffered mailbox message. 

: 894 19 : ; OUTPUT, PARAMETERS : 

: 896 1927 1 

; 897 1928 1 ! IMPLICIT OUTPUTS: 

: B99 1980 1 | — 

: 900 1931 1 | ROUTINE VALUE: 

; st 1936 : Completion status to be returned to requestor. 

: 303 1934 1! SIDE EFFECTS: 

; 904 1935 1! NONE 
. oe ae 
: 907 1938 1_ | 
: 309 1920 3 EBCAL | 
: 910 1941 SMO: REF BBLOCK, ! Pointer to job's SMQ 

; 911 1306 SMQ_N, ' Record number of SMQ 

; aig 194 SJH_N, ' Record number of SJH 

; 91 1944 § SJH: REF BBLOCK ' Pointer to SJH 

: 916 1945 SRB: BBLOCK 5125, ' Local service response block 

; 915 1946 § RESULT, ' Result of enqueue 

; a + 4 ESMQ: REF BBLOCK; ! Pointer to executor SMQ 
: 918 1949 $ 

: 4h 1330 2 Find an open job owned by this process, and dequeue it. 

; 354 195¢ if | 
$ a5¢ 195 BEGIN 

; 923 1954 IF FIND_PROCESS_DATA(PDE_K_OPEN. JOB, -MBXCACMSL_PIDJ, TRUE; , SJH_N) 

; $35 1956 NOT DEQUEUE_OPEN_JOB(.SJH_N; SJH) 

; 926 195 ELSE 

; 358 1989 END _ | 
: 39 1960 2 THEN | 
s oa 1303 RETURN JBC*_NOOPENJOB; 

; 93¢ 1968 

3 Sez H+ +-¢3 If the job is empty, delete it and return an error. 

: 935 1966 2 IF .SJHCSJHSL_FILE_LIST] EQL 0 

: 936 1967 THEN 

; 937 1968 BEGIN 


H 13 
SND JBC SSNDACC, SSNDSMB, and SSNDJBC services 19-300" 1986 99:37 
v04- 14-Sep-1984 12:57 
s § 1969 DELETE _SJH_RECORD(.SJH_N, .SJH); 
; 939 199 RETURN JBCS_EMPTYJOB; ~ 
eo Ra 
Ey HR Ey eee wee , 
: ' Enqueue the job on an appropriate queue. 
: 94a 1975 5 i — . 
3; 945 1278 SMQ_N = gSJUTS NOL QUEUE LINK; 
> 94 197 IF [SMQ_N NEQ 
; 94 138 THEN 
; 948 197 BEGIN 
: 949 1980 SMQ = READ _RECORD(.SMQ_N); 
; 950 1981 ENQUEVE_JOB(.SJH_N, .SJH; RESULT, ESMQ); 
; 951 19 ¢ END 
3 926 19 ELSE ; 
3; 1984 ' Queue_link is corrupt, we know that the job was pre 
; 954 1985 ' so return no such job. 
; 955 1986 ! 
; 956 198 RETURN JBCS$_NOSUCHJOB; 
; 957 1988 
; 958 1989 ! Return status including required output items. 
: 959 1990 ! 
; 960 1991 CREATE_SRB(SRB); 
3 961 199¢ TF .1TEM_PRESENTCSJC$_JOB_STATUS_OUTPUT) 
3 +e 199 THEN 
; 96 1994 BEGIN 
; 964 1995 COMPLETE_SRB_OUTPUT_ITEM( 
; 965 1996 SRB, 
: 966 1997 JOB_STATUS_MESSAGE ( 
; 967 1998 3 -RESULT, 
3 968 1999 3 LOCATE SRB_OUTPUT_1ITEM( 
; 969 2000 SR 
: 970 2001 SJC$_JOB_STATUS_OUTPUT, VALUE_JOB_STATUS_ 
; 97 2008 ; .SJH, 
s 97 004 ~ESMQ)); 
: 974 sone 2 END; 
; 973 006 SEND_SERVICE_RESPONSE_MESSAGE (SRB, JBC$_NORMAL); 
3 977 $008 
3 978 3008 REWR1TE_RECORD( . SJH_N); 
3; 980 $014 1 END; 


OE1C 00000 SJC_CLOSE JOB: 
.@ORD 


54 00000000" EF 9E $000 MOVAB 
5E FEOQO CE 9E 0000 MOVAB 
01 0D 0000 PUSHL 
50 64 00 0001 MOVL 
28 AQ dD 0001 PUSHL 
03 dD 00016 PUSHL 
00000000G_ EF 03 FB 00018 CALLS 


:5 AX=-11 Oi leg ccs V4.0-74 
21 JOBCTL.SRCJSNDJBC.B32; 


viously deleted, 


OUTPUT), 


Save R2,R3,R4,R9,R10,R11 
MBX, R 

-512(SP), SP 

#1 


x, RO 
Nk 
#3, FIND_PROCESS_DATA 


13 
SSNDACC, SSNDSMB, and SSNDJBC ices 14-5 =1984 00:27:5 AX-11 Bliss-32 V4.0-74 
vives : yah 12-808-1 oe 90: 9537 JOBCTL.SRCJSNDJBC.B32; 
52 AD 1F MOVL R10, R2 
OF 3 pg 09 BLBC ~=s._«aRO,:1 
DD PUSHL S$JH_N 
000000006 gf FB 000 CALLS #1, DEQUEUE_OPEN_JOB 
9 2 D 0 : MOVL Rif, 
08 b BLBS RO 3s 
00048048 &F BO 0 : 1$: MOVL #294984, RO 
O0F4 C9 D3 03¢ 2$: TSTL 44(SJH) 
131 026 BNEG $ 
000000006 EF — op PB ined CACC’ #20 (Ere 5st RECORD 
34 00048070 &F 00 a9ep HOVL Aes DELe 
50 0134 9 09 Niet 3$: MOVL 398(SUH), SMQ_N 
19 13 0005A BEQL 6 4$ 
50 od 0005c PUSHL  SMQ 
000000006 Ef 01 FB 00055 CALLS #1, “READ. RECORD 
3 50 D 906 MOVL MQ 
0204 8F BB 00068 PUSHR #*M<R2,R9> 
000000006 EF 08 Fe 0006¢ CALLS #2, <ENQUEVE _J0B 
50 00048040 8F 00 90075 4$: MOVL #294976, RO 
se $5 $8875 ss: Boom 
F 01 FB OOO7F CALLS 
ngperan: 5D OBCB «C4 «CED 00086 BLBC Tren PRESENT it, 6$ 
0A08 8F 8B 00088 PUSHR M<R3,R9,R11> 
10AA C4 OF OO08F PUSHAB VALUE 10 jo8. STATUS_OUTPUT 
7E 58 8F 9A 00093 MOVZBL 
14 AE 9F 00097 PUSHAB SRB 
000000006 _ EF 03 FB OO09A CALLS #3, LOCATE_SRB_OUTPUT_ITEM 
50 DD OO0A1 PUSHL 
5A DD O000A3 PUSHL ay 
000000006 _ EF 05 FB 000A5 CALLS #5, JOB_STATUS_MESSAGE 
50 DD OOOAC PUSHL RO 
000000006 EF - 05 Pe iti attics 33° COMPLETE_SRB_OUTPUT_ITEM 
00040001 8F DD 00088 6$: PUSHL eares ni . 
04 AE OF OOBE PUSHAB SRB 
00000000G_ EF 03 4 494 saehe #2, SEND_SERVICE_RESPONSE_MESSAGE 
00000000G_ EF Qi FB O00CA CALLS #1 -REWRITE_RECORD 
Be 80008 ET 


; Routine Size: 212 bytes, Routine Base: CODE + 047E 


Pee Se Se Se Se Se Se Se Se Se Ge Se Se Ge Se Se Ge Fe Se Fe Fe Se Be Ge Se Fe Fe Se Fe Ge Ge Ge Fe Se Fe Ge Fe Ge Se Fe Se Se Se Se 


13 | 
SNDJ SSNDACC, SSNDSMB, and S$SNDJBC services 1b-5e -1984 00:27:5 AX-11 Bliss-32 V4.0-74 Page 37. 
yoe~050 1 30071382 99°95} JOBCTL.SRCISNDJBC.B32; . ai 
: 3 i } ROUTINE SJC_CREATE_JOB(SOX.N,SQE, SMQ_N, SM) = | : 
: 9 14 1 144 ; 
; 985 9 73 : 
3; 9 18 1 ! FUNCTIONAL DESCRIPTION: | : 
3 ORs : : } This routine processes the SJC$_CREATE_JOB (SMRSK_CREJOB) request. : 
: 989 19 1 i INPUT PARAMETERS: | 
; 990 01! SQX_N - Record number of SQX. : 
; 991 lees SQE = Pointer to SQXx ari : 
: 338 0 ¢ 13 SMQ_N - Record number of SMQ. | ; 
; 99 1} SmQ - Pointer to SMQ. ‘ 
3 99% 41! 3 
; 995 025 1! IMPLICIT INPUTS: , | : 
: 238 3 $ } : MBX - Pointer to buffered mailbox message. : 
: 998 028 1 | OUTPUT PARAMETERS: | 
me eae : 
: 1001 031 1! IMPLICIT OUTPUTS: | 
PR ae | oi 
3 1004 034 1 ! ROUTINE VALUE: | 
; Hh SH : Completion status to be returned to requestor. ; 
: 1007 037 | i SIDE EFFECTS: : 
; 1008 038 1! NONE : 
3; 1009 039 1! : 
: 1010 040 1 !-- : 
; 1011 041 1 : 
ie Beg aise , 
: 1014 044 SQE REF BBLOCK, ! Pointer to SQX entry | : 
: AF Re? ecu. SMQ REF BBLOCK; ! Pointer to SMQ : 
1017 Oc? SQH: REF BBLOCK, =! Pointer to SQH | : 
: 1018 spe8 SJH_N, ! Record number of SJH : 
3; 1019 049 : REF BBLOCK ! Pointer to SJ ‘ 
: 1020 Spee SRB: BBLOCK(512), ' Local service response block : 
; 1021 051 STATUS_1, ! Status return : 
3 10ee 038 STATUS_2; ' Status return : 
; 10 05 : 
3 1024 054 : 
3 H's 5 B22 , Ensure that the requestor has W access to the queue. : 
; 10 ; 037 if NOT CHECK, W_ACCESS(.SMQ) 2 
; 1098 059 RETURN JBC$_NOPRIV; ; 
: 1031 O61 $i | ; 
3 1036 066 : Ensure that the requestor has W access to the log queue if specified. : 
i 1034 O64 ¢ iF .ITEM_PRESENTCSJCS_LOG_QUEUE] | : 
: 1036 066 IF NOT CHECK_W_ACCESS(.VALUE_LOG_QUEUEL1) | : 
: 1038 068 RETURN JBC$_NOPRIV; | ; 


a . . 


K 13 
SSNDACC, SSNDSMB, and SSNDJBC services 19=3¢ 
6 


<v 
2% 


#8 
s* 


=1984 00:27:53  VAX=11 BLiss-32 v4.0-74 Page 38. 
BrloBe 95587:1 JOBCTL. SRCISNDJBC.B32; ead td 


: 1039 :] 
 }beh ? 1] 
3 1 If this process already has an open job, delete it. : 
| : i if :] 
> 1044 74 BEGIN i] 
; | 5 i IF FIND_PROCESS_DATA(PDE_K_OPEN_JOB, .MBXCACMSL_PIDJ, TRUE; , SJH_N) : | 
; 1009 7 DEQUEUE_OPEN_JOB(.SJH_N; SJH) 

: 1048 7 L 

3 He O - FALSE 

; 1983 a8 THEN ELETE SJH_RECORD(.SJH_N, .SJH) | 

3 1988 8B < = 2 

: 1054 084 

3 32? 8 5 Allocate the job record. 

: 1089 O87 STATUS.1 = CREATE_SJH_RECORD(.SMQ_N, .SMQ: SJH_N, SJH); | 

; 1058 088 2 IF NOT~.STATUS_1 THENRETURN .STATUS_/; 

: 1059 089 

; 1060 090 

; H's 04 Apply options to the job record. | 

: 1068 09 STATUS_2 = APPLY_SJH_OPTIONS(.SJH); 

3; 1064 094 IF NOT .STATUS_2 

; 1065 095 THEN | 

3; 1066 338 BEGIN 

3 1067 09 DELETE_SJH_RECORD(.SJH_N, .SJH); 

: 1068 098 RETURN” .STATUS_2; 

3: 1069 099 END; 

: 1070 100 

: 1071 101 

3 Org 198 Default the form if necessary. 

3 1074 104 2 IF NOT .SMQCSMQ$V_BATCH] AND .SJHCSJHSL_FORM_LINK] EQL 0 

: 1075 105 THEN 

3 igre 196 BEGIN 

3; 107 10 LOCAL 

; 1078 108 SFM_N; ! Record number of SFM 

: 1079 109 

; 1080 110 IF NOT FIND_FORM_NUMBER(O; SFM_N) | 

: 1081 111 THEN 

: 1086 118 4 BEGIN 

3 7 11 4 DELETE _SJH_RECORD(.SJH_N, .SJH); 

3: 1084 114 &@ RETURN” JBC$_NOSUCHF ORM; 

3; 1085 115 END; 

:1 86 116 SJHCSJHSL_FORM_LINK] = .SFM_N; | 

3 1 H4 11 END; 

3 1 133 

: 1089 11 

3 1 : : Return the job identification. 

i 199 1 § RSPCRSP_W_ENTRY_NUMBER] = .SJHCSYMSL_ENTRY_NUMBER]; 

1094 134 

3; 1095 125 !' Record the open job in the process data base for ready access. 


SSNDACC, SSNDSMB, and SSNDJBC services 1b-50 Sep-19 7:5 AX-17 Bliss-32 V4.0-74 P 9 
attr 99: $533 JOBCTL.SRCISNDJBC. 832 9 age 433 


< 
2 


' 
ENTER_PROCESS_DATA(PDE_K_OPEN_JOB, .MBXCACMSL_PID], .SJH_N); 


Enqueue the job on the open job queue. 
San = mee TnKa sont RECNO); 
SJHESYM CSQHSL OPEN_LISTI; 
ScHeL 0 OPEN_LIS H_RA; 

he CERT Cl Ned EOL o TREN SQHCSQHSL_OPEN LIST END] = Sin, N; 
smat sia WW_OPEN_JOB_COUNT] = .SMQCSMQ$W_OPEN_JOB_COONT] + 


Return status including required output items. 


éReaTE SRB(SRB); 
1F ITER PRESENTCSJCS$_ENTRY_NUMBER_OUTPUT] 


REF VECTORC,WORD); 
= LOCATE_SRB_OUTPUT_ITEM( 
JC$_ENTRY_NUMBER_OUTPUT VALUE_ENTRY_NUMBER_OUTPUT) ; 
pro) = SJHCSYMSL_ENTRY_ NUMBER] 
COMPLETE _SRB_OUTPOT NITERCSRE. ait 


END 
SEND_ SERVICE RESPONSE _MESSAGE (SRB, JBC$_NORMAL); 


MMPs 2 3 2 


ooo 
CSOOCCO SS3 

PURI OODNAAF WW MODS UR AROS 
POTUTURSASASPININININININIPPOPIPIPIPOPPIPPIPUPIPIPUPPUPIPOPUPPOPPYD 
ee ee ee ee ee ce ee el cel ee ee el el el el el el 


i a ed od do 
DDD PSP BB BS BEB EE AAW Ionornorp 
OOD NAN E WIN 0 ODNA NEW SOO NOAUE WN OO OONOS 


on oo on ae oe a oe oe ee ee ee ee ee ee ee ee NN ee eS Ss 


7 REWRITE_RECORD(.SJH_N); 
8 REWRITE-RECORD(.SMQ"N); 
9 REWRITE RECORD (SQHSR_RECNO) | 
31 f END; 
OEFC 00000 SJf_CREATE_JOB: | 
.WORD Save R2,R3.R4,R5, 6. R7,R9,R10,R11 ; 2012 | 
57 90000006 EF 9E 9002 MOVAB CHECK _W_ACCE Ess, R? ; | 
56 000000006 EF 9E 000 MOVAB REWRITE-RECORD, R6 : 
55 00000000G EF 9€ 00010 MOVAB DELETE SUR CRECORD. RS : 
54 00000000' EF 9 00017 MOVAB MBX RG ; 
3E FEOO CE 4 001 MOVAB 12(SP), SP : 
5 10 AC 00 00 OVL  SMQ, R2 > 2057 
52 DD 000 PUSHL R2 : 
67 gi FB 09 9 CALLS #1, CHECK_W_ACCESS : 
10 0 £9 0002C BLBC3—E—s«aRO, ; 
12 OBccC C4 01 £1 0002F BBC #1. ITEM PRESENT #12, 2$ > 2064. 
10c2 «C4 ODD 09 5 PUSHL VALUE LOG_Q : 2066 | 
67 eS, 6 9 CALLS RECK=W Wat eESS ; 
08 0 €E8 0003C BLBS ; 
50 00048020 BF DO O003F 1$ MOVL ; $4 44, RO ; 2068 | 


— eee a ———— 


M15 
SNDJ SSNDACC, SSNDSMB, and SSNDJBC services 16-Sep-1984 00:27:5 AX-11 Bliss-32 V4.0-74 Page 40. 

902-050 1o-808-1382 99:95:37 JOBCTL.SRCISNDJBC B32: atthe voe 
01 DD g00e? 2s BUSHL wt : 2075, Z 
50 64 BO 49 MOVL x, RO : 3 1 
28 AO DD 0004C PUSHL  40(RO) : 31 
DD O004F PUSHL # : | 31 
000000006 ef F 31 CALLS #3, FIND_PROCESS_DATA : : 1 
3 A D 8 MOVL R16, R3 : 31 
16 20 E9 00058 LBC ~—OsaRO, 38 : 31 
53 pd 0005 PUSHL SJH_N + 2077) 31 
000000006 EF 1 FB 0006 CALLS #1, DEQUEUE_OPEN_JOB r | : | 
9 2 006 MOVL R11, R9 : 31 
07 E 8 4 BLBC yp ; 3] 
0208 8F 68 D PUSHR  #*M<R3,R9> + 2082. 31 
65 : FB 00071 CALLS 2. DELETE_SJH_RECORD : 31 
DD 00074 3$ PUSHL R + 2087 31 
0c aC DD 0076 PUSHL SMQ_N : 31 
000000006 ef Q FB 0007 CALLS #2 CREATE _SJH_RECORD : 31 
3 AD 0080 MOVL R10, R ; 31 
59 5B DO 0008 MOVL R11, RY : | 3; (1 
01 50 8 90086 BLBS § STATUS_1, 4$ > 2088 31 
4 00089 RET : 31 
59 DD OO08A 4$ PUSHL SJH > 2093 31 
000000006 EF 01 FB 0008 CALLS #1, APPLY_SJH_OPTIONS ; 31 
A 50 DO 0009 MOV RO, STATUS _2 : 31 
0B SA EB 90096 STATUS_2, 5$ + 2094 31 
0208 8F 8B 00099 PUSHR M<R3,R9> + 2097 . 1 
65 02 FB 00090 CALLS #2, DELETE _SJH_RECORD : 31 
50 5A 00 Q00A0 MOVL § STATUS_2, RO ; 2098 | : 1 
04 000A3 RET : | 31 
26 0c a2 E8 OOOAS 5$: BLBS 12(R2), 7$ > 2104 31 
OOFC C9 DS OOOA8 TSTL 52(SJH) : 31 
20 12 OO00AC BNEQ 4 : 31 
E D4 OOOAE CLRL = (SP) + 2110 31 
000000006 EF 01 FB 00080 CALLS #1, FIND_FORM_NUMBER : 31 
OF 50 €8 00087 BLBS - : . 1 
0208 8F 6B OOOBA PUSHR  #*M<R3,R9> > 2113 31 
65 02 FB OOOBE CALLS #2 DELETE SJH_RECORD : . 1 
50 00048158 8F D0 000C1 MOVL #295256, RO > 2114 31 
04 000C8 RET : 71 
OOFC C9 5A DO O000C9 6$: MOVL SFM_N, 252(SJH) : 2116 S| 
7A AG 08 Ad B80 OOcE 7$: MOVW  B(SJHS, RSP+2 : 2122 | 4 
53 DD 000D PUSHL SJH_N ; 2127 3] 
50 64 dO 00005 MOVL X> RO : 71 
28 AO OD 9008 PUSHL  40(RO) ; 3 
03 DD 000DB PUSHL ; | 3 
00000000G_ EF FB Q00DD CALLS #3, ENTER_PROCESS_DATA : 3 1 
1 oD OOE4 PUSHL #1 : 2132. .) 
000000006 _ EF 1 FB OO0E6 CALLS #1, READ_RECORD j | & 
69 4C AQ DO OO0ED MOVL  76(SQH),~(SJH) : 133 3 | 

4C AO 53 D0 000F1 MOVL § SJH_N, ?6(SQH) > 2134, ; 
9D OFS TSTL (SJA) > 2135. 7 
50 a0 3 06 door ROVE §JH_N, 80(SQH) : | 7 
0100 (2 B6 nit 8$: INCW LYSCeS > 2136 | 3 | 
000000006 EF oy fe O13 Phere = BT. CREATE.SR ‘Bead 31 
OBC3 «C4 Be O10A TSTB ITEM PRESENT #8 > 2142 | 3 | 
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0¢42 
08 
08 
; 04 
woncees? 
000000006 EF 
66 
66 
66 


Q 9$ 
PUSHAB Yh SENTRY ABER OUTPUT 


SRB 
CALLS #3 


SRB_OUTPUT_ITEM 
MOVW (Sy 


00000000G_ EF LOCATE 
60 H), (PY 


SRB 
000000006 E CALLS as COMPLETE_SRB_OUTPUT_ITEM 
#262145 


SRB 
CALLS #2, SEND_SERVICE_RESPONSE_MESSAGE 
CALLS #1, REWRITE_RECORD 


0 
0c 5 N 
: CALLS ate REWRITE _RECORD 
D 
0 
2 


MOCO POMO?r DOPFOPrPOCr-Onr 


lolelelelelelelelelelelelelelelololololo) 


oe 2 ME MS WPM MPM OWT MEO 
~~ on — 
&£Fwowowown"o@wn"eo ~~ te) 
OOOCOCQCCOOOOOOOOoOOooOooO 


oo NO NO NO"OVU "OVW 


CALLS #11, REWRITE RECORD 


Pe rerererererererererererererere rarer yr 
Nm 
= 
uw 
> 


; Routine Size: 339 bytes, Routine Base: CODE + 0552 | 
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DOOOOOO OO OWDOWDWOWWDWOWOWO NNN NNN NSO 
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ROUTINE SJC_CREATE_QUEUE= 
1 !44 
1! 
1 ! FUNCTIONAL DESCRIPTION: 
: } This routine processes the SJCS$_CREATE_QUEUE (SMRSK_INITIAL) request. 
1 | INPUT PARAMETERS: 
} NONE 
1 | IMPLICIT INPUTS: 
: MBX - Pointer to buffered mailbox message. 
1 | OUTPUT PARAMETERS: 
: NONE 
1 | IMPLICIT OUTPUTS: 
: NONE 
1 | ROUTINE VALUE: 
: Completion status to be returned to requestor. 
1 | SIDE EFFECTS: 
1! NONE 
zz 
1 lew 
1 
2 BEGIN 
2 LOCAL 
2 QXx_ REF BBLOCK, ! Pointer to predecessor of SQX 
2 SQX_NP, ' Record number of predecessor of SQX 
2 QXx: REF BBLOCK, ' Pointer to SQX 
2 SQX_N, ! Record number of SQXx 
2 QE: REF BBLOCK, ' Pointer to SQX entry 
2 SMQ_N, ' Record number of SM 
2 Q: REF BBLOCK, ' Pointer to SMQ 
2 STATUS_1, ' Status return 
2 UAL mY ' Status return 
2 STATUS_3, ' Status return 
§ STATUS_4; ! Status return 
2 
2 Ensure that the requestor has OPER privilege. 
5 if NOT -BBLOCKCMBXCACM$Q_PRVMSK], PRVS$V_OPER] 
; RETURN JBC$_NOOPER; 
; Read the queue header. 
SQX_P = READ_RECORD(SQX_NP = SQHSK_RECNO); 
: } Create the queue record. 
STATUS_1 = CREATE_SMQ_RECORD( ; SMQ_N, SMQ); 


-1984 99: 0:33 AX-11 Bliss-32 V4.0=-74 
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IF NOT .STATUS_1 THEN RETURN .STATUS_1; 


Apply options to the queue record. 
STATUS_2 = APPLY_SMQ_OPTIONS(.SMQ); 
a «STATUS_2- 


-5MQ_RECORD(.SMQ_N, .SMQ); 
«STATUS_2; 


Default the form if necessary. 
if NOT .SMQCSMQSV_BATCH] AND .SMQCSMQSL_FORM_LINK] EQL 0 


JN; ! Record number of SFM 
IFN NOT FIND_FORM_NUMBER(O; SFM_N) 
“BEGIN 
DELETE_SMQ_RECORD(.SMQ_N, .SMQ); 
RETURN ~JBCS_NOSUCHFORM; 
smacSHObL FORM_LINK] = .SFM_N; 


SQX_N = .SQX_PCSQHS$L_QUEUE_INDEX_LIST]; 
WHITE . -SOK_ N-NEQ 0 06 


READ RECORD ( + SOX LNv: 
SQE = SQXCSYM$T_D 
INCR SQE_N FROM -5* 10 Saxsk ENTRIES=1 DO 


BEG! 
A ccm cme NAME]) EQL 0 


BEGIN 
UPDATE_SQX_ENTRY(.SQE, .SMQ_N, .SMQ); 
IF .ITEM_ PRESENTLSJCS.. CREATE_ START) 


RETURN SJC_START_QUEUE(.SQX_N, .SQE, .SMQ_N, .SMQ) 


000 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
r4 
2 
é 
2 
2 
2 
2 
2 
2 
3 
3 
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MEW 0 ODNAUE WN 0 OD NAMES WIN 9 ODNAUE WN CO ODONOU EWN "OO OONOULS WN OW” 


SUSI ES IIR OR OP OR TUTTI & AAAI PPI PN WI & & BAW WIIIPPPONNonony 


SN NNN SO AAA AA AO 


BEGIN 
CASE CHSCOMPARE ( 
CHSRCHAR(SMQCSMQ$T_NAMEJ), SMQCSMQ$T_NAMEJ+1, 
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; SOTO ASAE CSANST NAMED), SQECSQX$T_NAMEJ+1, 
r4 
: 


FROM =-1 TO 1 OF 
SET 


WIE ~ S 
—o ~N 


SFISISIS 


REF BBLOCK, 


rmrororororororororory 


OCK 
$ax$s_SaxJ, 


BBLOCK ¥ 
SQXx$5~S0X], 


SOXx7T REF et 
: BBLOCK 


T2: 
STATUS; 


MPNoNoToNonorofnofernenpofpefnefpefperfonony 


PACA OOIMNIN 
VIFWN—ODOONAULS WI 


STATUS = ALLOCATE_RECORD( ; SQX_NT, SQX_T); 
can” » STATUS 


BEGIN 
DELETE_SMQ_RECORD(.SMQ_N, .SMQ); 
oo «STATUS; 


UPDATE_SQX_ENTRY(T1, .SMQ_N, .SMQ); 


WHILE TRUE DO 
BEGIN 
CHSMOVE ( 
SQX$S_SQXx, 
SQXCSYMS$T DATA] + 
(SQX$R_ENTRIES - 1) * SQX$S_SQX, 


T2); 
CHSMOVE ( 
-SQX + SYMSS_SYM = .SQE = SQX$S_SQX, 


“SQE, 

"SQE + SQX$S_SQX); 
CHSMOVE ( 

SQX$S_SQX, 


.SQE); 
CHSMOVE ( 
Sax$5_sax, 


115; 
IF CHSRCHAR(TICSQX$T_NAME]) EQL 0 
THEN 


BEGIN 
DEALLOCATE_RECORD(.SQX_NT); 
EXITLOOP; 
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END; 
IF .SQXESYMS$L_LINK] EQL 0 
THEN 


AX-1 
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1 
1 4 JOBCTL.SRCJSNDJBC .B832; (12) 


2 


END; 
END; 


(1): 
SQE = .SQE + SQX$S_SQXx; 


RELEASE_RECORD(.SQX_NP); 
SQX_NP = .SQX_N; 

SQX"P = .$Qx:; 
SOX°N -SQXESYM$SL_LINK); 


o | 


ATUS_4 = ALLOCATE_RECORD( ; SQX_N, SQX); 
NOT .STATUS_4 


z= 


——Y 
Mm 
2 


BEGIN 
DELETE_SMQ_RECORD(.SMQ_N, .SMQ); 
RETURN .STATUS_4; 


SQXCSYM$B_TYPE] = SYM$K_SQX; 

SQE = SQXxCSYM$T_ DATA); 

UPDATE SQX_ENTRY(.SQE, .SMQ_N, .SMQ); 

IF .SQRX_NP-EQL SQHSK_RECNO 
THEN SQX_PCSQHSL_QUEUE_INDEX LIST] = .SQX_N 
ELSE SQX-PCSYMSL_LINK]™= .SQX_N; 


NP); 
TERM_PRESENTCSJC$_CREATE_START 
| 


aan ka a a a at ak a a a a a a a a a a 2 Lan 1s 9 a a 


SOSOSSOSO DODO OOOO OO 02 00 89 00 00 0 80 00 09 G9 I II II o 


=WIWIWNIWIAIDIPIPIPINIDPININININPINPININI NINN AWNIYPINIPININPINI WNW & 


oP oP oe oy or ot ot ot ot ot et et tek ee ek ek 


WWAWWIAIWAI AAI AIR PINININININPINININD 2 OO OO OS OO 
NOUS WN $$ O OONOAOUES WN —OOONOUS WhO” 


POPINPINPINIPINIPINININIPONINPONINININYININ IP NON NoNoNoNnyfnonys 


REWRITE RECORD(.SQX 
THEN 
og ES EM -SQE, .SMQ_N, .SMQ) 
EGIN 
REWRITE_RECORD(.SQX_N); 
REWRITE-RECORD(.SMQ—N) : 
SS$_NORMAL 
END | 
END; 
OFFC 00000 SJC_CREATE QUEUE: 
.W Save R2,R3,R4,R5,R6,R7,.R8,R9,R10,R11 : 2162 | 
SE 98 AE 9E 00002 MOVAB -104(SP5, SP ; 
50 00000000" EF D0 00006 MOVL MBX, RO ; 2206 | 


cc ce cc ce ee ce ee ce ce ce ce ee ce ce cl ec ce ce ee el el ce ek ee ed ed dh 


a a —_ 


14 | 
i 1 7:5 AX-11 Bliss-32 V4.0-742 Page 47 
vou: ne re ee 16 at 3B 93: $3} JOBCTL.SRCISNDJBC..B32;1 (12) | 
S #2, 6(RO) ; | ; 
= ' 3 00042894 8 60 af ROVL 1392850" to'® ; 2208 
10 AE g1 b0 OA 18: MOV. ue SQX_NP : 2213) 
000000006 EF o} FB 99 6 CALLS #1, READ RECORD : | 
000000006 EF 90 FB 00 : CALLS #0, CREATE_SM@_RECORD ; 2218 | 
MOVL R11, R6 : : 
3 38 4 50 é BLBS STATUS_1, 2$ ; 2219 
56 DD $00 C 2$: PUSHL SMQ + 2224 : 
000000006 EF gi FB 00055 CALLS #1, APPLY SMa_OPTIONS ; 
7F 52 £9 00048 BLBC STATUS % “g's + 2225 : 
28 OC A6 EB 00048 BLBS 2(SMQy > 2235 : 
70 AG D3 OO06E TST; 112tSMQS : : 
é 12 00052 BNEQ 4$ : : 
E D4 00054 CLRL = = (SP) : 2241 : 
000000006 FF gi FB 00056 CALLS t FIND_FORM_NUMBER 
a en fase Pal 
00006 EF 02 FB 00064 CALLS LETE SM@_RECORD ; : 
— 50 00048158  8F B0 00068 MOVL na cOELE ; 2245 
70 Ab SA DO 00078 38: MOV. SEMLN, 112 (sma) ; 2247 
50 04 AE 00000064 br ci 90077 4$: ADDLS #100, "sa sax_P, RO ; 2251 ; 
ia 03 1200083 5$: BNEG = 6$ - ; 2252 : 
0125 31 00085 BRW 20$ ; : 
6E DD 00088 6$: PUSHL  SQX_N > 2254 : 
sees B) 56 Gone aut e ga-ECON | : 
57 0c AI 9E 00094 MOVAB 12(R9), SQE > 2255 : 
OC AE D4 00098 CLRL  SQE_N : 2256 ; 
67? 95 00098 7$: TSTB =: ( SQE) : 2258 : 
oops 31 0009r Bu, : : 
51 00B0 CG 9A OOOAZ 8S MOVZBL 176(SMQ), R1 ; 2275 : 
50 67 9A OOOA MOVZBL (SQE), RO ; 2276 3 
50 20 0081 6 31 2D OOQAA CMPCS R1, 177(SMQ), #32, RO, 1(SQE) | 
0% 18 00085 BLEQU 9S | : 
0003 31 00085 BRW 19$ ; : 
oof $s $00 98: BASSU Rt eo at 
000000006 EF 00 FB 000BD 10% CALLS #0, ALLOCATE_RECORD : 2294 ’ 
5 50 pO 000C4 MOVL RO. STATUS ; | ; 
33 3¢ es 00C7 BLBS = STATUS, 1 > 2295 | ; 
OOF3 31 OOOCA 118 BRW 21$ ; | : 
36 DD OO¢D 12$ PUSHL  SMQ : 2303 : 
48 AE oF 0001 PUSHAB TI F 
F FB 00004 CALLS #3 UPDATE ,SOX_ENTRY ; : 
18 AE aide std iz 33 8 a0004 138:  MOVCs #46, 452(SOx),"T2 : 2308 ; 
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14-Sep P= 1984 7:1 JOBCTL.SRCJSNDJBC.B32;1 (12) | 
50 59 57 C3 000E2 SUBL3 SQE, SQx, RO : 2314 ; 
5 0108 § Mite MOV £75 Rds R : ; 
28 A? 4 O0E MOVC3 RO, (SQE), 40(SQE) + 2316 ; 
67 40 AE OOF moves #40, T1, (sae) ; 2320) : 
40 AE 18 AE OF MOVC3 #40. T2. T t 2321. ; 
40 AE OOF S18 sé + 2325 F 
08 12 O0OF BNEQ «14S : | : 
A DD 019 PUSHL SQX_N : 2328) F 
000000006: EF gi FB 001 CALLS #1, DEALLOCATE_RECORD ; : 
f 11 00109 BRB 18$ : 2327 : 
69 05 00108 148: TSTL ($QX) + 2331 : 
12 if 0190 BNEG 15$ : : 
69 5A DO 0010F MOVL § SQX_NT, (SQX) + 2334 : 
04 AB 05 39 0112 MOVE. #5,~4(SQXx_T) + 2335 : 
oc AB 40 AE ¢8 28 00116 movc3) #46, T1, T2(SQx_T) : 3359, ; 
A bp 0011C¢ PUSHL SQX_NT : 2340 ; 
00DD 31 OO11E BRW 25$ : F 
08 AE 69 DO 00121 15$: MOVL (SQX), SQX_NS > 2343 ; 
08 AE DD 001 5 PUSHL  SQX_N : ; 
000000006 _ EF 01 FB 00128 CALLS #1, READ RECORD : ; 
14 AE 50 D0 001 ef OVL RO, SQx_S : ; 
6E DD 00133 PUSHL + 2344) F 
000000006 EF 01 FB 00135 CALLS #1, REWRITE_RECORD ; : 
6E 08 AE dO 0013C MOVL § SQX_NS, SQX"N > 2345 : 
59 14 AE 00 00140 MOVL  S$QX7S, SQX + 2346 ; 
57 OC AD SE 00144 MOVAB 1(R9S, SQE + 2347 : 
91 11 00148 BRB + 2306 : 
56 DD 0014A 16S: PUSHL sH0 : 2369 ; 
58 DD 0014C¢ PUSHL : : 
000000006 EF 0@ FB 00146 CALLS ro “DeLerE SMQ_RECORD : ; 
a 24 A? dO 0015 MOVL  36(SQE), SMQ_N : 2372 ; 
58 DD 00159 PUSHL 5SMQ _ : ; 
000000006 EF 01 FB 00158 CALLS #1, READ_RECORD : 3 
56 50 00 00162 MOVL MQ : : 
1F 11 AG 01 £1 0016 BBC V7 csma) 18$ : 2373 ; 
OOFC C6 DS OO16A TSTL an (SMQ : ; 
19 12 0016E BNEQ ; ; 
56 DD 00170 PUSHL + : 2376 : 
000000006 _ EF 01 FB 00172 CALLS #1, APPLY_SMQ_OPTIONS : F 
91 50 €8 00179 BLBS STATUS, 178 : 2377 ; 
04 991 7¢ RET : ; 
56 DD 0017D 17$: | PUSHL SMQ : 2378 ; 
7E 57 7D OO17F MOVQ SQE, -(SP) : : 
000000006 EF 03 FB 0182 CALLS #3, UPDATE_SQX_ENTRY : | : 
A 1100189 18%: BRB 26$ > 2382 : 
57 28 CO 0018B 19$: ADDL2 #40, SQE > 2395 ; 
FFO6 Oc AE 01 B FI 00186 ACBL #11, #1, SQE_N, 7$ > 2256 : 
10 AE DD 0019 PUSHL  $Q¥_NP + 2403 F 
000000006 _ EF o1 F 0198 CALLS #1, RELEASE_RECORD ; : 
10 AE 6E 00 0019F MOVL Sax _N Sax _AP > 2404 : 
04 AE 59 D O1A3 MOVL Sax ; gh 3 
6E 69 p 1A MOVL eeaK: $0X_N > 2406 : 
FED6 31 OO1AA BRW ; 3258 : 
000000006 gE FB Q1AD 20$: CALLS 4&0, ALLOCATE _RECORD > 241 ; 
2 DO 00184 MOVL RO TUS. ; ; 
6 A DO 00187 MOVL R10. (SP : : 
5B DO 001BA MOVL = RV, a ; | : 
| 
| 


; Routine Size: 561 bytes, Routine Base: CODE + 06A5 


} 
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yO4 1ergee=f 88s P9:gh Fs | PANEL T Ok begs ae Me Bsoe ’ 2), 
OF 2 €8 0018 BLBS STATUS_4, 228 ; 3411 | ; 
$ DD O01CO 218 PUSHL  SMQ : 2614 | : 
DD 001¢ PUSHL  SMQ_N : ’ 
000000006 Ef 08 FB 1€4 CALLS #2, DELETE_SMQ_RECORD : ; 
0 i 1CB OVL STATUS_4, RO + 2415 : 
04 Ag 05 90 OOICF 22$: MOVB #5, 4(SQX) + 2419 : 
57 0c Ad 9E 00103 MOVAB 12(R9), SQE : 34 0 F 
56 bo 0107 PUSHL  SMQ + 2421 : 
7E 57 7D 00109 MOVQ  SQE, =(SP) : : 
000000006 EF 03 FB 001D CALLS #3, UPDATE_SQX_ENTRY : : 
01 10 AE 01 OIE CMPL sox. , wi + 2422 : 
OE 12 OO1E BNEQ 3$ : ; 
50 04 AE 00000064 8F C1 001E9 ADDL3 #100, SQX_P, RO + 2423 F 
60 6E 00 gaits MOVL SQX_N, (RO) : ; 
04 11 OO1F BRB 4$ : : 
04 BE 6E DO OO1F7 238: OVL  SQX_N, @SQX_P + 2426 3 
10 AE DD OO1FB 24$: -PUSHL SQX"NP > 2427 : 
000000006 EF 01 FB OO1FE S$: CALLS #1, REWRITE_RECORD : : 
09000000" EF 95 00205 26S: STB —sAITEM_PRESENT+2 + 2428 : 
O& 18 00208 BGEQ 27$ : : 
56 DD 00200 PUSHL SMQ > 2430 ; 
7E 57 7D 0020F MOVQ  SQE, =(SP) F : 
OC AE DD 00 Ng PUSHL XN ; 
0000v CF 04 FB 0021 CALLS #4,~SJC_START_QUEUE F 
04 OO21A RET ; 
6E DD 0021B 27$: | PUSHL SQX_N : 2433 
000000006 EF 01 FB 90210 CALLS #1, REWRITE_RECORD ; 
58 DD 0224 PUSHL 8 > 2434 
000000006 EF 01 FB 00226 CALLS #1, ~REWRITE_RECORD F 
0 01 D0 00220 MOVL #1. RO : 2432 
04 00230 RET > 2437 
| 
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: 1410 138 1 ROUTINE SJC_DEASSIGN_QUEUE(SQX_N,SQE,SMQ_N,SMQ)= 

3 14611 4 1 
3 1316 440 1 !44 
3: 141 441 1! 
3 1416 442 1 ! FUNCTIONAL DESCRIPTION: 

>; 1415 445 1! This routine processes the SJCS_DEASSIGN_QUEUE (SMRSK_REDIRECT to null) 

: a 444 1! request. 

3 141 445 1! 

3; 1418 re: 1 ! INPUT PARAMETERS: 

; 1419 447 1! SQX_N = Record number of SQX. 
: 1420 448 1! Q - Pointer to SQX entry. 

3; 1421 449 1! SMQ_N - Record number of SMQ. 
3 14 ¢ 450 1! SMQ - Pointer to SMQ. 
3 14 451 1! 
: 1426 128 1 ! IMPLICIT INPUTS: : 

3 1% 2 tt : : MBX - Pointer to buffered mailbox message. 

3: 1427 455 1 ! OUTPUT PARAMETERS: 

> 1428 456 1! NONE 
$ +63 457 1! 

: 1430 458 1 ! IMPLICIT OUTPUTS: 
3: 1431 459 1! NONE 
: 1038 460 1! 

3 1435 461 1 ! ROUTINE VALUE: 
3 1434 rh 1! Completion status to be returned to requestor. 

3; 1435 463 1! 
: 1436 464 1 ! SIDE EFFECTS: 
3: 1437 465 1! NONE 

3; 1438 466 1! 

3; 1439 467 1 !-- 

3; 1440 468 1 

3 1441 469 BEGIN 
: 144g 470 2 MAP : 

3 144 471 SQE: REF BBLOCK, ' Pointer to poatcat SQX entry 

3 1444 47 SMQ: REF BBLOCK; ' Pointer to SM 

3 1445 47 LOCAL te 
3 1446 474 AUX_N, ! Record number of auxiliary record 
: 1447 475 AUX: REF BBLOCK; ! Pointer to auxiliary record 

: 1448 47 

3 1449 47 

; 1239 $78 : Ensure that the requestor has E access to the queue. 

3 1626 230 IF NOT CHECK_E_ACCESS(.SMQ) 

3 1454 4 RETURN JBC$_NOPRIV; 

3; 1455 48 
3; 1456 484 , . 

3 \e2t a8 : Ensure that the queue is assigned. 
3 1¢25 ts IF .SMQCSMQSL_ASSIGNED_QUEUVE_LINK] EQL 0 

3: 1461 489 RETURN JBC$_NOTASSIGN; | 
: 1066 490 

3 146 491 ; 
3 1464 4&9 ! Revoke the assignment. 

3; 1465 49 : 

3: 1466 494 SMQCSMQS$L_ASSIGNED_QUEUVE_LINK] = 0; 
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SSNDACC, SSNDSMB, and SSNDJBC services gn3007 138% 00:97:33 AX-11 Bliss-32 V4.0-7 
4=Sep-1984 12:37:17 JOBCTL.SRCJSNDJBC. B30: 
495 2 SMOQCSMOQS$V_STOPPED) = TRUE; 
4 UPDATE _SQX_ENTR RY(: get ~SMQ_N, .SMQ); 
49 REWRITE _RECORD(.SQX_NS; 
49 REWRITE-RECORD(. ona “ND: 

0 
20) 5 SS$_NORMAL 
502 END; 


000C 00000 SJC_DEASSIGN QUEUE: 
WORB Save 


53 000000006 EF 4 0000 MOVAB RevALTE RECORD, R3 
52 10 AC DO 0000 MOVL 
52 OD 99000 PUSHL 
000000006 FF 01 FB O000F CALLS #1, CHECK_E_ACCESS 
8 50 £8 00016 BLBS RO 
50 00048020 8F D0 00019 MOVL #294944, RO 
04 00020 RET 
2c a2 D5 00021 1$: TSTL  44(R2) 
08 12 00024 BNEG 
50 00048130 8F D0 00026 MOVL #295216, RO 
04 00020 RET 
2C A2 D4 O002E 28: CLRL 44 (RO) 
11. A2 02 88 00031 BISB2 » 17(R2) 
52 DD 00035 PUSHL no" 
7E 08 AC 7D 00037 MOV (SP) 
00000000G_ EF 0 FB 00038 CALLS 33° "UPDATE _SQX_ENTRY 
04 AC OD 00042 PUSHL  SQX_N 
63 01 FB 0004 CALLS #1, REWRITE_RECORD 
0c AC DD 00048 PUSHL 
63 01 FB 00048 CALLS #1, ~REWRITE_RECORD 
50 01 DO 0004E MOVL #1. RO 
04 00051 RET 


82 bytes, Routine Base: CODE + 08D6 
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ROUTINE SJC_DEF INE_CHARACTERISTIC= 


— 
= 
~ 


ee 


FUNCTIONAL DESCRIPTION: 
is routine processes the SJCS_DEFINE_CHARACTERISTIC request. 


INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 

MBX - Pointer to buffered mailbox message. 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
Completion status to be returned to requestor. 
SIDE EFFECTS: 
NONE 
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BEGIN 
LOCAL 

SCX_P: REF BBLOCK, ! Pointer to predecessor of SCX 
SCX_NP, 
SCX 
SCX_N 
SCE 
STA 

4 
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Record number of predecessor of SCX 
REF BBLOCK, 


Pointer to SCX 
Record number of SCX 

REF BBLOCK, Pointer to SCX entry 

TUS_1; ' Status return 


PUPA 


ooo 


Ensure that the requestor has OPER privilege. 
iF NOT .BBLOCKCMBXCACMSQ_PRVMSK], PRVSV_OPER] 
RETURN JBC$_NOOPER; 
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Read the queue header. 
SCX_P 
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READ_RECORD(SCX_NP = SQHSK_RECNO); 
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v04=000 14-Sep-1984 12:37:1 JOBCTL.SRCISNDJBC.B32; 1 
5 1647 674 5 TES; 
: 1648 675 4 END; 
: 1649 676 END; 
; 1690 67 
> 1651 678 
; 1638 679 RELEASE_ RECORD. »SCK_NP) ; 
> 165 680 SCX_NP = .SCX 
> 1654 681 SCX"P = .SCX:~ 
: 1655 68¢ SCX"N = SO ns LINK); 
3; 1656 68 END; 
: 1657 2684 
: 1658 685 
: 1659 686 2 STATUS_1 = ALLOCATE_RECORD( ; SCX_N, SCX); 
; 1660 687 2 IF NOT~.STATUS_1 THEN RETURN .STATUS_1; 
> 1661 688 
: 166 2689 
: 166 690 SCXCSYMSB_TYPE] = SYMSK_SCX; 
3: 166 691 SCE = SCXESYAST _DATA]; 
: 166 2692 3 CHEWCHA 
: 1666 269 i CHARACTERISTIC _NAMECSDSC_W_LENGTHI, 
> 1667 2694 SCECSCRST_NAMEJ); 
: 1668 2695 2 CHSMOVE( 
: 1669 2696 : . VALUE _ CHARACTER ISTIC_NAMECSDSC_W_LENGTH] 
+ 1670 2697 <VALUE ~ CHARACTERISTIC-NAMELSDSC_A-POINTERJ, 
: 1671 2698 : SCECSCR$T NAME) + 1); 
: 1672 2699 2 SCECSCX$SB_NUMBER] = .VALUE_CHARACTERISTIC_NUMBER; 
+ 1673 2700 2 IF .SCX_NP EQL SQHSK_RECNO- 
3: 1674 2701 2 THEN SCX_PCSQHSL_ =CHARACTERISTIC LIST] = .SCX_N 
+ 1675 2702 2 ELSE SCX~PLSYMSL-LINK] = .SCX_N3 
: 1676 2703 2 
: 1677 2704 2 
: 1678 2705 2 REWRITE_RECORD(.SCX_N); 
3 1679 2706 2 REWRITE-RECORD(.SCX_NP); 
: 1680 2707 2 SS$_NORMAL 
+ 1681 2708 1 END: 
OFFC 00000 SJC_DEF INE CHARACTERISTIC: 
WORD Save Re. RS. R4,R5,R6,R7,R8,R9,R10,R11 
5E A8 AE 9E 00002 mOVAB -88(SP), SP 
50 00000000" EF DO 00006 MOVL M X, 
08 06 AO 2 £0 00000 BBS *6(RO), 
50 00042894 8F D0 00012 MOVL ; 72532, go'® 
04 00019 RET 
08 AE 01 DO OOO1A 18: MOVL #1, SCX_NP 
01 DD OOO1E PUSHL #1 
000000006 EF gi FB 000 9 CALLS #1, READ_RECORD 
59 0 pO 000 MOVL RO. SCX_P 
58 10 A9 DO O002A MOVL  16¢SCX_P), SCX_N 
03 1 900 2$: BNEQ 3$ 
0118 3 6 BRW 15$ 
58 0D 0 3$: PUSHL  SCX_N 
000000006 EF OI FB 00 CALLS #1,~READ_RECORD 
7 0 DO 0003C MOVL RO. SCX 
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ROUTINE SJC_DEFINE_FORM= 


'ee 


! 
FUNCTIONAL DESCRIPTION: 
This routine processes the SJC$_DEFINE_FORM request. 


INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: | 
MBX - Pointer to buffered mailbox message. 
OUTPUT PARAMETERS: 
NONE 


ROUTINE VALUE: 
Completion status to be returned to requestor. 


SIDE EFFECTS: 
NONE 


IMPLICIT OUTPUTS: 
NONE - | 
| 


ARAVLSSRLSARANLS SSUES 


& 


BEGIN | 
LOCAL 

REF BBLOCK, 
REF BBLOCK, 
SFE: REF BBLOCK, 
REF BBLOCK, 


' Pointer to predecessor of SFX | 
' Record number of predecessor of SFX 
' Pointer to SFX 
' Record number of SFX 
' Pointer to SFX yt 
! Record number of SF 
!' Pointer to SF 

' Status return 

' Status return 

' Status return 

. ' Status return 


Ensure that the requestor has OPER privilege. 
if NOT .BBLOCKCMBXCACM$Q_PRVMSK], PRV$V_OPER) 
RETURN JBC$_NOOPER; 
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: Read the queue header. 
SFX_P = READ_RECORD(SFX_NP = SQHS$K_RECNO); 


SQN NNN NNN NN 
DAA SST BS BS BS BS BE EB ENN NNIA WAIN PONINPNININIPIDY 2 2 OO SS OO 


oar 


! Ensure that the form number is not duplicated. If it is, and the name is the 
same, it is a redefinition of an existing form; process it immediately. 
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vy bet SSNDACC, SSNDSMB, and SSNDJBC services Jo~3007 1386 00:92:33 Ax-11 O ieteas V4.0-742 Page 59) 
V04- 14-Sep-1984 12:37:1 JOBCTL.SRCJSNDJBC.B32; 1 (15), 
: 1740 76 IF FIND_FORM_NUMBER(.VALUE_FORM_NUMBER; SFM_N, SFM) : ¢ 
; 1741 76 THEN 2 ¢ 
: 1246 768 BEGIN : § 
: 174 769 IF CHSEQL( : 
> 1744 770 .VALUE_FORM_NAMECSDSC_W LENGTH) . VALUE FORM_NAMELSDSC_A_POINTER], ¢ 
> 1745 771 CHSRCHAR(SFACSFMST_NAME]), SFMCSFMST_NAMEJ+1- : ¢ 
: 1746 0 ic’ | 3 ¢ 
; 174 77 THEN : ¢ 
> 1748 774 4 BEGIN 7 ¢ 
: 1749 775 4 LOCAL : ¢ 
; 1750 176 4 STATUS; 7 ¢ 
: 1731 777 4 | ; é 
: 17 : 778 4 STATUS = APPLY_SFM_OPTIONS(.SFM); : 
: 175 779 4 IF NOT .STATUS-THEN RETURN . STATUS; 2 ¢ 
: 1754 780 4 REWRITE _RECORD(.SFM_N); i ¢ 
: 1755 781 4 RETURN SS$_NORMAL; | i ¢ 
: 1756 782 4 END | 34 
: 1757 78 ; ELSE ; ¢ 
: 1758 784 RETURN JBC$_DUPF ORM; | 34 
: 1759 785 : ND; 3 
: 1760 786 34 
: 1761 787 , 3 ¢ 
: 1766 788 ! Create the form definition record. $4 
> 176 789 2 34 
> 1764 790 2 STATUS_1 = CREATE_SFM_RECORD( ; SFM_N, SFM); 3 é 
> 1765 791 2 IF NOT~.STATUS_1 THEN-RETURN .STATUS_1; 3 
3 1766 a 3 ¢ 
3 1767 279 ; | a4 
: 1768 gioe : Apply options to the form definition record. : § 
; 1770 $796 STATUS_2 = APPLY_SFM_OPTIONS(.SFM); | 3 ¢ 
: 1771 2797 2 IF NOT~.STATUS_2 | 3 ¢ 
: 177 2798 2 THEN 32 
> 177 2799 BEGIN 3 
> 1774 2800 DELETE_SFM_RECORD(.SFM_N, .SFM); 3 ¢ 
> 1775 2801 3 RETURN” .STATUS_2; 3: é 
: 1776 2802 2 ND; 3 4 
: 1777 2803 2 3 ¢ 
: 1778 2804 3 | a4 
: 1779 2805 2 SFX_N = .SFX_PCSQHSL_FORM_INDEX_LIST); 4 
: 1780 2806 WHITE .SFX_w NEQ 5 3 4 
> 1781 2807 BEGIN 3 ¢ 
; 178¢ 2808 SFX = READ_RECORD(.SFX_N); | 3 ¢ 
> 178 3809 SFE = SFXCSYMST_DATA); | 34 
> 1784 10 INCR SFE_N FROM"O TO SFXSK_ENTRIES-1 DO | 34 
> 1785 2811 4 BEGIN | : 4 
: 1786 e812 4 IF CHSRCHAR(SFECSFXS$T_NAMEJ) EQL 0 | 34 
> 1787 2813 4 THEN | 34 
3 1788 2814 5 BEGIN | FF 
> 1789 2815 5 UPDATE_SFX_ENTRY(.SFE, .SFM_N, .SFM); | 24 
: 1790 e816 5 REWRITE _RECORD(.SFM_N); | 34 
> 1791 817 5 REWRITE-RECORD(.SFX_N); | 74 
: 179 sole 5 RETURN $S$_NORMAL ; 34 
> 179 819 5 END : 
> 1794 820 4 | 34 
: 1795 821 5 BEGIN | 4 
: 1796 822 5 CASE CHSCOMPARE ( ‘3 
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: 1911 937 
; 191g 9 8 
: 191 9 STATUS_4 = ALLOCATE_RECORD( ; SFX_N, SFX); 
> 1914 940 2 IF NOT~.STATUS_4 
: 1915 941 EN 
; 1918 94 BEGIN 
: 191 94 DELETE_SFM RECORD(. SFM_N, .SFM); 
> 1918 944 RETURN .STATU 
: 1919 945 ND; 
: 1920 346 
: 1921 94 
: 19 2 248 SFXCSYM$B_TYPE) = K ASEX 
: 19 94 UPDATE _SFR_ ENTRY SEXCSYR T “bATAI, ~SFM_N, .SFM); 
+ 1924 950 2 IF .SFR_NP-EQL SQH 
: 1925 951 “THEN SFX “Proust FORM INDEX pb sta = .SFX_N 
; 1926 326 ELSE SFX_PCSYMSL_LINK] = .SFX_N; 
: 1927 95 
3; 1928 954 
; 1989 955 2 REWRITE_RECORD(.SFM_N); 
> 1930 996 REWRITE-RECORD(.SFX-N); 
; 1931 299 REWRITE-RECORD(.SFX-NP) ; 
; 1932 958 2 SS$_NORMAL 
: 193 2959 1 END: 
OFFC 00000 SJC_DEFINE_FORM: 
«WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 2709. 
5E 98 AE 9E 00002 MOVAB -104(SP5, SP : 
50 00000000' EF 00 00006 MOVL MBX, RO : 2753 
08 06 Ad 02 £0 00000 BBS #2, 6(RO), 1 F 
50 00042894 8F D0 00012 MOVL #272532, go'® : 2755 
04 00019 RET ; | 
10 AE 01 DO OOO1A 1$: MOVL #1, SFX_NP : 2760 | 
01 OD OOO1E PUSHL # ; 
000000006 EF 01 FB 00020 CALLS #1, READ RECORD F 
04 AE 50 D0 00027 MOVL Fx PB : 
00000000" EF DD 900¢6 PUSHL VALUE FORM_NUMBER > 2766. 
000000006 gf 1 FB B28 1 CALLS FIND. FORM_NUMBER : 
9 A DO 00038 MOVL R 16,'R : 
56 5B 00 00038 MOVL R11, ae : 
ef 50 9 003E BLBC RO : 
0 0110 C6 9A 00041 MOVZBL 2 5 eeu) : 2771 
50 20 00000000" FF 00000000" EF 20 0046 CMPC5 VALUE Spann CANE. @VALUE_FORM_NAME+2, #32, - ; 
0111 +6 0005 RO, 273(SFM) ; 
10 12 00056 BNEQ 3$ : 
56 DD 00058 PUSHL SFM : 2778 
000000006 EF 01 FB 005A CALLS #1, APPLY_SFM_OPTIONS : 
19 50 £9 00061 BLBC STATUS, 5$ : 2779 
59 DD 00064 2$ PUSHL t : 2780 
64 11 0066 BRB 10$ ; 
50 00048160 F 0 99 8 3$: MOVL #295264, RO 2784 | 
000000006 ff 90 FB 0070 4$: CALLS #0 CREATE_SFM_RECORD : 2790 | 
9 A pO 0007 MOVL R10, R : | 


aerate Oi lege ye Oaee 
JOBCTL.SRCJSNDJBC .B32; 
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SNDJ SSNDACC, SSNDSMB, and SSNDJBC services 16-Sep-1984 00:27:5 AX-11 Bliss-32 V4.0-74 Page 64 SNE 
y04 060 1a-Sep-19 4 90: 9537 JOBCTL.SRCISNDJBC B32: . a8 v0é 
06 AB 90 00149 MOVB. #3, 4(SFX_T) : 2884 | 3 4 
OC AB 40 AE 3 38 Sore moves #46, TI, T2(SFX_T) ; 258 i ¢ 
A DD 001 PUSHL SFX_NT ; 2889 ae 
000000006 EF 1 FB 001 CALLS #1, “REWRITE _RECORD : | 3 
& 11 gotoe BRB 21§ > 2890 : 
08 AE 68 00 91 18$: OVL (SFX), SFX_NS + 2893 i 
08 AE DD 0016 PUSHL  SFX_NS : : 
000000006 EF 1 FB 016 CALLS #1, READ_RECORD : ; 6 
146 AE 0 0 B18 MOVL RO, SFX_S ; i ¢ 
—E DD 001 PUSHL SFX_N + 2894 : 
000000006 EF 1 FB 0017 CALLS #1, REWRITE_RECORD : ; 6 
of 08 AE OD O17 MOVL  SFX_NS, SFX"N + 2895 | 
14 AE 00 0017D MOVL SFX : SFX + 2896 3 
57 OC AS 9E O18 MOVAB 12(RBS, SFE + 2897 : 4 
1 11 00185 BRB 16$ > 2854 i 
6 0D 0187 19$:  PUSHL SFM + 2912 ; 6 
59 DD 00189 PUSHL SFM_N : ; 6 
000000006 EF 0¢ FB 00188 CALLS #2, DELETE _SFM_RECORD ; ; 6 
9 24 A? 00 0019 MOVL  36(SFE), SFM_N + 2913 if 
59 DD 00196 PUSHL SFM_N : 34 
000000006 EF 01 FB 00198 CALLS #1, READ_RECORD ; : 
& 50 DO 0019F MOVL RO, SFM : i ¢ 
56 DD 001A2 PUSHL SFM + 2914 34 
00000000G_ EF 01 FB QO1A4 CALLS #1, APPLY_SFM_OPTIONS 3 : { 
01 50 Fe 001AB BLBS STATUS, 20$ ; 2915 i ¢ 
4 OO1AE RET : : 
56 DD OO1AF 20$: | PUSHL SFM > 2916 i 
0280 8F 6B 00181 PUSHR #*M<R7,R9> ‘ ; 3 ¢ 
000000006 EF 03 FB 001B5 CALLS #3, UPDATE_SFX_ENTRY : i ¢ 
6— DD 9018¢ 21$:  PUSHL SFX_N + 2917 34 
000000006 EF 01 FB 01 BE CALLS #1, REWRITE_RECORD ; : ¢ 
FE9C 31 OO1C BRW : 2918 3 
57 28 (CO 001CB 228: ADDL2 #40, SFE > 2924 i ¢ 
FEDE OC AE 01 0B F1 001CB ACBL #11, #1, SFE_N, 9$ > 2810 7 
10 AE dD 00102 PUSHL SFX. : 2932 
000000006 EF 01 FB 001D CALLS #1, ~RELEASE_RECORD : 
10 AE 6— DO 0010C¢ MOVL SFX_N, SFX_AP ; 2933 
04 AE 58 DO 001E0 MOVL SFX? § > 2934 
6E£ 6 b0 001E4 MOVL (SFX), SFX_N + 2935 
FEAE 31 QO1E7 BRW 7$ > 2806 
000000006 EF 06 FB OO1EA 23S: CALLS #0, ALLOCATE_RECORD > 2939 
2 DO O01F1 MOVL RO, STATUS_4 ; 
% 28 bd OOlF? Rove ae. oP) 
OF 33 PB SOlrA BLBS § STATUS_4, 25$ > 2940 | 
6 DD OO1FD 24%:  PUSHL SFM > 2943 | 
000000006 EF 83 PB 00201 CALLS. RO "DELETE. SFM_RECORD : | 
0 95 i 9 OB HOVL STATUS_4, RO F 2946 | 
046 «AB 93 0 9 o¢ 25%: MOVB #3, 4(SFX) > 2948 
§ DD 0021 PUSHL SFM > 2949 | 
5 pp 0 \2 PUSHL SFM : | 
0c AS 9F 0021 PUSHAB VecSFx? F | 
000000006 Ff 0 FB 0217 CALLS #3, UPDATE. SFX_ENTRY : 
1 10 AE 01 00 If CMPL FX_NP, # : 2950. 
OA 12 0022 BNEG ; 


| SRD IRE SSNDACC, SSNDSMB, and SSNDJBC services 1b-5¢ pep- 138% 99: gf: 33 AX=11 Oh ee sis ube gsort 


-Sep-1 JOBCTL.SR 
50 06 =A 4 C1 4 ADDL3 #52, SFX_P, RO 
8b ; bo 9 MOVL ae N, (ROS 
C BRB 7$~ 
04 BE f DO 368: MOVL § SFX_N, @SFX_P 
DD $:  PUSHL SFM™N 
000000006 EF 01 FB CALLS #1, REWRITE_RECORD 
oF DD B PUSHL SFX_N 
000000006 EF FB 0023D CALLS #1, REWRITE_RECORD 
10 AE DD 00244 PUSHL  SFX_NP 
000000006 EF 1 FB 00247 28$ CALLS #1, REWRITE_RECORD 
0 1 DO 0024E MOVL #1. RO 
04 00251 RET 


; Routine Size: 594 bytes, Routine Base: CODE + OADO 
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SNDJ SSNDACC, SSNDSMB, and SSNDJBC services 16-Sep-1984 09:97:5 AX=11 Bliss=32 V4.0-742 Page 66 SMI 
v04=- 14-Sep-1984 12:37:1 JOBCTL.SRCISNDJBC.B32; 1 (16) vO 
; 1935 960 1 ROUTINE SJC_DELETE_CHARACTERISTIC= + | 
; 19 961 1 | 
3 19 962 1 !++ | 
: 1938 965 1! +4 
; 1939 964 1 ! FUNCTIONAL DESCRIPTION: a 
; Pe 202 | } his routine processes the SJC$_DELETE_CHARACTERISTIC request. s 4 
3 ' - | 
: 1286 967 1 ! INPUT PARAMETERS: 2 4 
3; 194 968 1! NONE - 
3 1944 , 29 | 
: 19465 970 1! IMPLICIT INPUTS: | 
3 18 971 1! MBX - Pointer te buffered mailbox message. e 4 
3 194 Wa 3 | s | 
3; 1948 975 1 ! OUTPUT PARAMETERS: 4 
: 1949 974 1! NONE - 4 
: 1950 975 1! | 
3; 1951 976 1 ! IMPLICIT OUTPUTS: . 4 
3 1326 977 1! NONE 24 
3; 195 978 1! - 4 
3: 1954 979 1 ! ROUTINE VALUE: e 4 
; 1955 980 1! Completion status to be returned to requestor. a 4 
3; 1956 981 1! | 
; 1957 982 1 ! SIDE EFFECTS: 24 
; 1958 983 1! NONE | | 
3; 1959 984 1! | * 4 
; 1960 985 1 !-- | e 4 
3 1961 986 1 
3 1908 987 2 BEGIN - 4 
; 196 988 LOCAL - a4 
3; 1964 989 SCX_P REF BBLOCK, ! Pointer to predecessor of SCX | e 4 
3; 1965 990 SCX_NP, ' Record number of predecessor of SCX P| 
3: 1966 991 SCX: REF BBLOCK, ' Pointer to SCX e 4 
3 1967 99 SCX_N, ! Record number of SCX a 
3; 1968 99 SCE: REF BBLOCK; ! Pointer to SCX entry e 4 
> 1969 994 | a 
: 1970 995 e 4 
: 130) 4s | } Ensure that the requestor has OPER privilege. . 4 
: ‘ . 4 
3 1978 345 IF NOT .BBLOCKCMBXCACM$Q_PRVMSK], PRVS$V_OPER] | e¢ 
$ | e 4 
: 1975 000 RETURN JBC$_NOOPER; 2 
> 1976 001 | | 
3; 1977 One - 4 
; 1978 0 SCX_P = READ_RECORD (SCX NP = SQH$K_RECNO); i? 
3 197 004 SCX"N = .SCX~PCSQHSL_CHARACTERISTIC_LISTI; 24 
3; 1980 005 WHICE .SCX_N-NEQ 0 DO e | 
: 1981 Bee BEGIN | - | 
3 1356 00 SCX = aeae RECORD(.SCX_N); a 
3; 198 008 SCE = SCXCSYM$T_DATA); * | 
3 1984 009 INCR SCE_N FROM"O TO SCXS$K_ENTRIES-1 DO 3 | 
: 1985 B19 4 BEGIN - | 
3; 1986 11 4 IF CHSRCHAR(SCECSCXST_NAME]) EQL 0 2 | 
3 bs 14 at; 4 THEN . | 
3 19 013 4 EXITLOOP e | 
3; 1989 014 4 LSE a 
3; 1990 015 5 a | 
3; 1991 3016 5 CASE CHSCOMPARE ( 3 
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THEN 
BEGIN 
REWRITE _RECORD(.SCX_NP) 
EXITLOOP; 
END; 
! Otherwise, we must continue shuffling. Read the next 
} record. 
SCX = READ_RECORD(.SCX_N); 
SCE = SCXCSYM$T_DATAJ; 
SCE_N = 0; 
CHSMOVE ( 
SCX$S_SCX, 
SCE 
SCX_PLSYMST_DATA] + 
mn “(SCXSK_ENTRIES = 1) * SCX$S_SCX); 


RETURN SS$_NORMAL; 
END; 


C1): 
SCE = .SCE + SCX$S_SCX; 


oie y =RECORD(. SCX_NP); 
SCX PS de N; 


*SEKESYMSL _LINK); 


Ss x-P ¢ 
SCX"N = 
END; 


JBC$_NOSUCHCHAR 
ND; 
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Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 


50 CP000000" EF D0 00002 MOVL 
06 AO 02 £0 00009 BBS a *6tRO) 
50 00042894 8F D0 00006 MOVL #272532, go'® 
04 0001 RET 
59 01 60 90016 1$: MOVL #1, SCX_NP 
01 DD 00019 PUSHL #1 
000000006 EF 01 FB 0001B CALLS #1, READ_RECORD 
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E_CHARACTERIST 
UE CHARACTERIS 


ETQUI_DATA 


" REWRITE_RECORD 
“DEALLOCATE_RECORD 
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SSNDACC, SSNDSMB, and $SNDJBC services 1b-Sep-1986 00:92:33 AX-11 Bliss-32 V4.0-742 
14-Sep-1984 12:57:15 JOBCTL.SRCISNDJBC.B32;1 
ROUTINE SJC_DELETE_FORM= 


144 
i 


i FUNCTIONAL DESCRIPTION: 
This routine processes the SJC$_DELETE_FORM request. 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 
MBX - Pointer to buffered mailbox message. 


SELFSES 2 


—> —) —b ss st tt 
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OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


Completion status to be returned to requestor. 
SIDE EFFECTS: 
NONE 


DOONOUE WN" OCONOULS WN "OVOO~ 


Sette tet et et ee ee ee ee ee 


REF BBLOCK, 
REF BBLOCK, 
REF BBLOCK; 


! Pointer to predecessor of SFX 
Record number of predecessor of SFX 
Pointer to SFX 

Record number of SFX 

Pointer to SFX entry 


Ensure that the requestor has OPER privilege. 
iF NOT .BBLOCKCMBXCACMSQ_PRVMSK], PRV$V_OPER] 


RETURN JBC$_NOOPER; 
RE ORD(SFX_NP = SQH$K_RECNO); 
PCSQHSL_FORM_INDEX_LISTJ; 
NEQ 0 DO 
p RECORD(.SFX_N); 


SYMST_DATAJ; 
N FROM-O TO SFXS$K_ENTRIES-1 DO 


SRCHAR(SFECSFXST_NAME]) EQL 0 
EXITLOOP 
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BEGIN 
CASE CHSCOMPARE ( 
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SSNDACC, SSNDSMB, and SSNDJBC services 19-3007 138% 00:90:33 AX-11 Bliss-32 V4.0-742 Page 72 
14-Sep-1984 12:57:1 JOBCTL.SRCIJSNDJBC .B32;1 (17) 
. VALUE_FORM_NAMECSDSC_W peneTe - VALUE _FORM_NAMECSDSC_A_POINTER], 
CHSRCHAR (SFECSFXST_NAREI) SFELSFXST_NAMEJ+1, 
FROM -1 TO 1 OF 
SET 
{-1): 
RETURN JBCS$_NOSUCHFORM; 
C0): 
BEGIN 
LOCAL 
SFM: REF BBLOCK, ! Pointer to SFM 
SFM_N, ! Record number of SFM 
CTX: BBLOCKCQSM_K_CTXSIZEJ, 
SJH_N, ! Record number of SJH 
JH: REF BBLOCK; ! Pointer to SJH 


Read the form definition. 
SFM = READ_RECORD(SFM_N = .SFECSFXS$L_FORM_LINK]); 


Ensure that the form has no outstanding references. 
if FIND_FORM_REFERENCES (. SFM_N) 
RETURN JBC$_REFERENCED; 


: Delete the form definition. 
DELETE_SFM_RECORD(.SFM_N, .SFM); 
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! If the new entry pointed to by SFE is the first in 
' the block and is cept. then we removed the only 
! entry in the (last) b 
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1 

1 
$1 } Remove the form index entry. 
21 UPDATE_GETQUI_DATA(.SFX_N, .SFE); 
21 WHILE TRUE DO 
$! BEGIN 
3 Remove the entry pointed to by SFE. 
22 CHSCOPY ( 

22 SFX * SYMSS_SYM - .SFE = SFXSS_SFX, 
22 SFE + SFXSS_SFX, 

22 0 

32 SFX + SYMSS_SYM = .SFE, 

2 SFE); 

22 

22 
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08 06 


000000006 


000000006 


50 20 00000000° 


000000006 


000000006 


000000006 


04 

5 88 END; 
Bo Oe 

> 2267 91 RELEASE_RE 
; 2268 3 SFX_NP = , 
> 2269 9 SEXP = .§ 
> 2270 94 SFX"N = .S 
3 71 95 § END; 
Be Bs 

> 227% 3298 $ JBC$_NOSUCHFORM 
; 2275 3299 1 END; 
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CSYMS$L_LINK; 


00000000" 


00042894 


00000000" 
01 


~m 
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00048050 


RD(.SFX_NP); 


OFFC 00000 SJC_DELETE_FORM: 
. WORD 


C2 00002 
dO 

EO 
dO 


wr 
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ow 
DD 
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5$: 
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75 AX-11 Bliss-32 V4.0-742 Page 74 
1 JOBCTL.SRCISNDJBC.B32;1 (17) 
Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 3117 
MBX, RO : 3155 
#2, 6(RO), 1$ 3 
#272532, RO + 3157 
#1, SFX_NP ; 3160 
#1, READ_RECORD ; 

RO, SFX ; 
52(SFX_P), SFX_N ; 3161 
4$ ; 3162 
17$ 3 
SFX_N : 3164 
#1, "READ_RECORD ; 
RO, SFX 3 
12(R11), SFE : 3165 
SFE_N : 3166 
(SFE) : 3168 
6$ 3 

16$ s 
(SFE), RO : 3175 
VALUE_FORM_NAME, @VALUE_FORM_NAME+2, #32, - ; 
RO, 1TSFE) Z 

7$ 3 

15$ 3 

3$ 3 
36(SFE), SFM_N : 3197 
SFM_N : 
#1, READ_RECORD ; 
RO, SFM ; 
SFM_N ; 3202 
40 pe PO DEFERRED F 
#954992, RO : 3204 
#*M<R2,R3> ; 3209 
#2, DELETE_SFM_RECORD ; 

FE > 3214 
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SNDJ SSNDACC, SSNDSMB, and SSNDJBC services 18- $ep-1984 00:27:5 AX-11 Bliss-32 V4.0-74 Page 76 
504-860 14- ~3ep-19 4 90: 9537 JOBCTL.SRCISNDJBC.832; . (18) 
4 a4 a} } ROUTINE SJC_DELETE_JOB(SQX_N,SQE,SMQ_N,SMQ)= 
: i$ : 1 !44 
3; 2280 4 1 i 
: 4 h i! FUNCTIONAL DESCRIPTION: 
3 B¢ 8? ! This routine processes the SJC$_DELETE_JOB (SMRSK_RMVJOB) request. 
; 84 89 1 i INPUT PARAMETERS: 
; 2285 08 1! SMQ - Pointer to SMQ. 
; 2286 09 1: 
; 87 10 1! IMPLICIT INPUTS: 
; 3 1 : MBX - Pointer to buffered mailbox message. 
3 90 318 1 | OUTPUT PARAMETERS: 
: 2291 314 1 NONE 
3 4 315 1! 
3: 229 316 1°! IMPLICIT OUTPUTS: 
; 94 317 (1 NONE 
: 2295 318 1! 
3 % 319 1 ' ROUTINE VALUE: 
; 2297 3320 1! Completion status to be returned to requestor. 
: 2298 $35: 13 
3 444 356 1/ SIDE EFFECTS: 
: 2300 3323 1 «| NONE 
; 2301 3304 1 | 
3 Sane 3325 1 i. 
: 230 $359 1 
: 2304 327 § BEGIN 
: 2305 $456 MAP 
: 2306 3329 2 SQE: REF BBLOCK, ! Pointer to SQX entry 
: 2307 3330 2 SMQ: REF BBLOCK; ! Pointer to SMQ 
: 2308 3331 2 LOCAL 
3; 2309 3336 2 SJH_N, ' Record number of SJH 
; 2310 333 é SJH? REF BBLOCK, ' Pointer to SJH 
; 2311 3334 ene aN. ! Record number of executor SMQ 
; $3i§ 3335 ESMQ REF BBLOCK, ' Pointer to executor SMQ 
3 $31 3336 STATUS ' Status return 
: 2314 3337 2 STATUS _ -} ' Status return 
: $32 338 § 
3 2316 339 
3 2317 3340 Find the specified job. 
3: 2318 3341 
3; 2319 308 STATUS, ny Be ow QUEUES ( 
3 359 sez abe ys “QSM_M_TIMER OR QSM_M_PENDING OR QSM_M_HOLD OR QSM_M_CURRENT, 
; 32¢ 345 “anaen “eniny NUMBER, 0, 
3; 232 346 CHECK-D_ACCESS, 
3: 2324 Step re -k “REROVE INACTIVE; 
3: 2325 48 SJH, ESMQ 
: 326 349 2 IF Not MS taTUS, 1 THEN RETURN . * STATUS. 1; 
3 $5 350 
3; 25328 351 
3 4 326 If the job is executing, request the executor to abort it. 
3; 2331 354 if - SJHCSJH$SV_EXECUTING) 
3 335 355 THEN 
3: 235 3356 BEGIN 
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voe-000 14-Sep-19 38 98: $3} JOBCTL.SRCISNDJBC.B32; 1 9°18) 
; 7 

3 5 34 If a previous abort is in progress, refuse this request. 

4 60 if « SJHCSJH$V_ABORTING) 

P4 : 6 mn SJHSV_ ABORTED 

; 40 6 NRETURN JBCS_INCOMPLETE; 

8 i 

3 ‘8 ? } Execute the actual abort. 

3 45 68 TATUS_2 = ABORT oe pe _JOB(.ESMQ_N, .ESMQ, .SJH_N, .SJH); 
; 46 69 STATUS. opecone “a SUH 

3; 2347 370 RETURN STATUS 23 

3; 2348 4 END; 

3; 2349 ie 

3; 2350 337 . 

g $32) 3375 If the job is not executing, process the request in place. 

3 2358 376 IF .SJHCSJH$V_STARTING) 

3: 2354 3377 EN 

3; 2355 3378 BEG! 

3; 2356 3379 ESMOtSMSB CURRENT_JOB oe * -ESMQCSMQ$B_CURRENT_JOB_COUNT] = 1; 
; 2357 sea FIND PENDING JOBS(7ESMO_N ESMQ) ; 

; 2358 $B) REWRITE NRECORD(. ESMO NDF 

: 2359 $3 3 END; 

; 2360 38 

; 2361 3384 

3 $306 3385 SJHCSJHSV Det SUKLN, TRUE; 

: 236 3386 COMPLETE _J0B(.S N, .SJH. ~SMQ, 0); 

: 2364 et 

3; 2365 388 § 

3: 2366 3389 iy -NORMAL 

: 2367 3390 1 END 


OF1C 00000 SJC_DELETE JOB: 


.WORD Save R2,R3,R4,R8,R9,R10,R11 : 3300 

54 000000006 EF 9E 99002 MOVAB R WRITE “RECORD, R4 : 
02 DD 00009 PUSHL > 3342 

000000006 cr 9F 0000B PUSHAB CHECK _D_ACCESS 

E D4 00011 CLRL  -(SP)~ : 

00000000" EF 9F 90015 PUSHAB VALUE ENTRY NUMBER : 
7E 0C AC 7d 00019 MOVQ  SMQ_N7 -(SPY > 3344 
1F DD 00010 PUSHL #317 > 3343 

000000006 : 07 FB OOO1F CALLS *? SEARCH QUEUES : 
C 50 £9 00026 BLBC. — STAT > 3349 
5 10 Ad 9E 00029 MOVAB hae aig. Re > 3354 

28 é 03 £1 0002D BBC : 
03 6 01 EO 00031 BBS (ng ’ i$ > 3360 
0 62 €9 00035 BLBC {R nd) > 3361 
50 00048138 8F 00 00 1$: MOVL #295824, > 3363 

04 003F RET : 
7E 58 7D 00040 2%: MOVQ SJH_N, =(SP) : 3368 
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14-Sep F-19846 JOBCTL.SRCJSNDJBC.B32;1 (18) 

7E 5A 7D 00043 MOva ESMQ_N : 

000000006 a 4 FB 0046 CALLS #4, xBORT EXECUTOR. JOB : 

3 g DO 00040 MOVL RO, STATUS_2 ; 
DD 0005 PUSHL SJH_N ; 3369 

4 01 FB 005 CALLS #1, REWRITE_RECORD : 
0 3 p00 0005 MOVL STATUS_2, RO ; 3370 

04 00058 RET : 
13 62 oc 4 Bagep 3$: BBC » (R2), ; 3376 
0115 CB 97 0005D DECB 5 (ESMQ) : 3379 
7 SA 70 9006} MOVQ ESMQ_N, =(SP) ; 3380 

00000000G_ EF 02 FB 00064 CALLS #2, FIND_PENDING_JOBS 3 
SA DD 00068 PUSHL N : 3381 

64 01 FB 00060 CALLS #1, REWRITE_RECORD : 
62 9% as 90070 4$: BISB2 #4, (R2) : 3385 
E D4 0007 CLRL. 0s = (§P) : 3386 

10 Ac bb 00075 PUSHL  SMQ : 

7E 58 7D 00078 MOva SJH_N, =(SP) : 

000000006 EF 04 FB 00078 CALLS #4, COMPLETE_JOB : 
50 01 »D 90082 MOVL #1, RO : 3390 

04 00085 5$ RET ; 


; Routine Size: 134 bytes, Routine Base: CODE + OF68 
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4 7 
4 1 JOBCTL.SRCIJSNDJBC.B832; (19) 


; H 91 ROUTINE SJC_DELETE_QUEUE= 

1: ei 

: ie 95 1.) FUNCTIONAL DESCRIPTION: 

3 ie 38 : This routine processes the SJC$_DELETE_QUEVE (SMRSK_DELETE) request. 
: 2376 98 1 | INPUT PARAMETERS: 

Sige se tion 

: 2379 401 1 | IMPLICIT INPUTS: 

; 39 rt : } MBX - Pointer to buffered mailbox message. 
: 238 404 1 ' OUTPUT PARAMETERS: 

ea ate 

> 2385 407 1 ' IMPLICIT OUTPUTS: 

ote apo 

> 2388 3410 1 | ROUTINE VALUE: 

3 $35) ae1) : Completion status to be returned to requestor. 

: 2391 3018 1 | SIDE EFFECTS: 

; 39¢ 3414 1 NONE 

: 239 415 1: 

> 2394 3416 1 i= 

; $396 316 ! BEGIN 

: $399 3419 $ LOCAL 

3; 2398 3420 Qx_ REF BBLOCK, ! Pointer to predecessor of SQXx 
; 2399 3421 SQX_NP, ' Record number of predecessor of SQx 
+ 2400 34 ; SOX? REF BBLOCK, i Pointer to SQx 

3 2001 4 SQX_N, ! Record number of SQX 
: 40¢ 3434 SOE? REF BBLOCK; i Pointer to SQX entry 
: Stbe 3058 

; sigs $ i Ensure that the requestor has OPER privilege. 

: 3407 3429 $ iF NOT .BBLOCKCMBXCACMS$Q_PRVMSK], PRVSV_OPER] 

> 2409 3234 ‘ RETURN JBC$_NOOPER; 

: $019 323 

; le 3434 SQX_P = READ _RECORD (SOX NP = SQHSK RECNO) ; 

3 241 435 SQX"N = .SQX~PCSQHSL_QUEUE_INDEX_LTSTJ; 

; et 3039 WHITE .SOX_N NEQ 0 00 

; 416 438 SOX = READ RECORD ( « SQX_N); 

3 241 439 SQE = SQXCSYM$T_DATA); 

; 418 4460 ; INCR SQE_N FROM"O TO SQXS$K_ENTRIES-1 DO 

; 420 44g 4 IF CHSRCHAR(SGECSQX$T_NAMEJ) EQL 0 

: 432 baa & EXITLOOP 

: $ts7 sete é SE EGIN 

; 133 4a? § CASE CHSCOMPARE ( 


v 


S 
: 


: 
: 


mrorunrrorTr 


Pe ee ee ee et ee ee ee ee ee 


AEN 2S Soe NO 


MITMITINUNIND 


COGS 


SJHCSJHSV eEXECUTING] THEN RETURN JBC$_EXECUTING; 
SJHCSJH$V_DELETED) = TRUE; 
SOMPLETE.. JOB(.SJH “N, “SJH. .SMQ, 0); 


' Ensure that there are no outstanding references to the 
queue. 
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14-Sep F-19864 JOBCTL.SRCISNDJBC.B32;1 
448 - VALUE _QUEU Hite SC_W Lengrud VALUE _QUEUVECSDSC_A_POINTERJ, 
449 CHSRCHAR (SO ECSQXST_RAMEJ), SQECSQX$T_NAMEJ+1, 
ree FROM -1 TO 1 OF 
128 SET 
45 
454 
455 5 <1): 
+28 5 RETURN JBC$_NOSUCHGUE; 
457 5 
458 5 
459 5 C0): 
460 6 BEGIN 
461 6 LOCAL 
m9 4 6 SmMQ: REF BBLOCK, Pointer to SMQ 
65 6 SMQ_N, Record number of SMQ 
ree 6 CTX? BBLOCKCQSM_K LCTXSIZE3¢ 
465 6 SJH_N, Record number of SJH 
3466 6 SJH: REF BBLOCK; Pointer to SJH 
3.67 6 
468 6 
re 3 : Read the queue header. 
3471 6 SMQ = READ_RECORD(SMQ_N = .SQECSQX$L_QUEUE_LINKJ); 
473 6 
rt ? } Ensure the queue is stopped and there is no current job. 
3476 6 IF .SMQCSMQ$B eg ee JOB_COUNT] NEQ 0 
3477 6 OR NOT .SMQCSMQ$V_STOPPE 
3478 6 OR .SMQLSMQSL_ STREAM. SCT] NEQ 0 
3479 6 THEN 
3480 6 NRETURN JBCS_REFERENCED; 
3481 6 
3482 6 : : 
Scaz ? : Delete all jobs in queue. 
485 6 CHSFILL(O, QSM_K _CTXSIZE, CTX); 
3486 6 WHILE SEARCH QDeDES< 
eH : SPEN = QSM_M_TIMER OR QSM_M_PENDING OR QSM_M_HOLD, 
489 6 oe, 
490 6 
491 . QSM_K_REMOVE_INACTIVE, 
493 6 SJH_N, SJH) 
494 6 DO 
495 7 BEG] 
496 7 IF 
7 
7 
6 
6 
6 
6 
6 
6 


A Pn ne 


Page 80 
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483 505 6 IF FIND _QUEUVE_REFERENCES(.SMQ_N) 
485 507 6 RETURN JBCS_REFERENCED; 
486 508 6 
487 509 6 
488 510 6 ! Delete the queue header. 
2489 511 6 ‘ 
2499 21§ 6 DELETE_SMQ_RECORD(.SMQ_N, .SMQ); 
491 513 6 
<98 514 6 
4&9 515 6 ! Remove the queue index entry. 
494 516 6 ! 
495 517 6 UPDATE _GETQUI_DATA(.SQX_N, .SQE); 
2496 518 § WHILE TRUE DO 
497 519 BEGI 
498 520 7 
2499 521 7 ' Remove the entry pointed to by SQE. 
2500 5 ; 7 ! 
2501 2§ 7 CHSCOPY ( 
2502 524 7 ~SQX + SYMSS_SYM = .SQE - SQX$S_SQX, 
$207 525 7 .SQE + SQXx$S_SQx, 
504 3526 7 ° 
2505 527 7 .SQX + SYM$S_SYM = .SQE, 
2506 528 7 . 3 
2507 267 7 
2508 3530 7 : 
2509 3531 7 ! If the new entry pointed to by SQE is the first in 
2510 236 7 ! the block and is eapty« then we removed the only 
$213 33 ioe ! entry in the (last) block and it should be 
aig 534 7 ! deallocated. 
251 539 Ff ! 
2514 536 7 IF .SQE_N EQL 0 AND CHSRCHAR(SQECSQX$T_NAMEJ) EQL 0 
2515 3537 7 THEN 
2516 3538 8 BEGIN 
2517 3539 8 IF .SQX_NP EQL SQH$K_RECNO 
2518 3540 8 THEN SQX_PCSQHS$L-QUEUE_INDEX_LIST] = 0 
2519 3541 8 ELSE SQX PLSYM$L_LINK] = 0; 
2520 e206 8 REWRITE _RECORD(.SQx_NP); 
2521 354 8 DEALLOCATE_RECORD(.SQX_N); 
$258 $2ee 8 EXITLOOP; 
52 545 7 : 
2524 3546 7 
2525 3547 7 ; ¢ 
25 $ $208 7 ! The predecessor record is now correct -- rewrite it 
$256 44 u and make the current record the predecessor. 
$263 551 7 REWRITE_RECORD(.SQX_N 
2530 226 7 SQX_NP = .SQX_N; 
2531 553 7 SQX_P = .SQX; 
3932 554 7 SOX"N = .SQXCSYMSL_LINKJ; 
$23 555 7 
534 556 7 ee 
2535 557 7 ' If there are no more blocks, then we are finished. 
$238 558 7 ! 
53 559 7 IF .SQX_N EQL 0 
2538 560 7 THEN 
2539 561 8 BEGIN 
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1 
SND JBC SSNDACC, SSNDSMB, and S$SNDJBC services 1s Sep-19 7:5 AX-11 Bliss-32 V4.0-742 Page 83 SNI 
v06=000 14-Sep 71984 99: $537 JOBCTL.SRCJSNDJBC.B32;1 ° a vO 
50 04 AE 00000064 8F C1 O002A ADDL3 #100, SQX_P, RO + 3435 
08 AE 6 09 00 ; MOVL (RO), SQXN : 
: 12 000 3 BNEQ 4$ + 3436 
01 31 00039 3$ BRW 21$ : 
08 AE DD 0003c 4$ PUSHL  SQX_N + 3438 
000000006 EF Q1 FB 0003F CALLS #1, READ_RECORD ; 
10. AE 0 DO 00046 MOVL. RO. SQX : 
57 10 AE 0C C1 0004; ADDL3 #12, SQX, SQE t 3439 
16 AE D4 O004F CLRL SQE_N + 3440 
67 95 00052 5$ TSTB = ( SQE) + 3442 
03 12 00054 BNEQ 6$ : 
0146 31 00056 BRW 20$ : | 
50 67 9a 00059 6$ MOVZBL (SQE), RO + 3449 
50 20 00000000" FF 00000000" EF 20 0005¢ CMPCS VALUE.QUEUE, @VALUE_QUEUE+2, #32, RO, - ; 
01. A? 00069 1(SQES : 
03 1B 00068 BLEQU 7$ : 
012D 31 0006D BRW 19$ : 
C7 1 00070 7$ BLSSU _3$ oe 
6E 24 AZ DO 00072 MOVL  36(SQE), SMQ_N * 3471 
6E DD 00076 PUSHL SMQ_N : 
000090006 EF 01 FB 00078 CALLS #1, READ_RECORD ; | 
56 50 00 0007F MOVL RO. SMQ : 
0115 C6 95 00082 TSTB 277 (SMQ) ; 3476) 
59 12 00086 BNEQ 11$ : | 
54 11 AG 01 £1 00088 BBC #1, 17(SMQ), 11$ ; 3477) 
OOFC C6 05 0008D TSTL 252(SMQ) : 3478) 
4E 12 00091 BNEQ 11$ : 
24 00 6E 00 2C 00093 MOVCS #0, (SP), #0, #36, CTX + 3485. 
18 AE 00098 ; | 
18 AE 9F OO09A 8$ PUSHAB CTX : 3486) 
02 DD 0009D PUSHL #2 : 
7E 7C 0009F CLRQ.  =(SP) : 
7E D4 OO0A1 CLRL = = (SP) ; 
56 DD O00A3 PUSHL  SMQ : 3488 | 
18 AE DD 0005 PUSHL SMQ_N ; 
OF DD OO0A8 PUSHL #15 : 3487 | 
000000006 EF 08 FB OOOAA CALLS #8, SEARCH_QUEUES ; 
21 50 €9 00081 BLBC $ : 3486. 
08 10 Ag 03 £1 000B4 BBC 16(SJH), 9$ : 3496, 
50 000480F8 8F DO 00089 MOVL #34519¢5 RO’ : 
04 000C0 RET : 
10 Ag 04 88 000C1 98: BISB2 #4, 16(SJH) > 3497 | 
7E D4 000C5 CLRL wtp) > 3498 | 
36 DD 900¢7 PUSHL : | 
7E 58 7D 000C9 MOVO.  SJH_N, =(SP) : | 
000000006 EF 04 FB 000CC CALLS #4, COMPLETE_JOB F 
CS 11 00003 BRB 8$ > 3486. 
6E DD 000D5 10$: | PUSHL SMQ_N : 3505 
00000000G_ EF 1 FB 00007 CALLS #1, ~FIND_QUEUE_REFERENCES ; 
08 50 £9 OOODE BLBC 12$ F 
50 00048050 &F BO OO0E1 11$:  MOVL #294992, RO : 3507. 
4 OO0E8 RET ; | 
56 DD OOOE9 12$:  PUSHL SMa > 3512 
04 AE DD OO0EB PUSHL  SMQ_N : 
000000006 EF 0@ FB O OEE CALLS #2, DELETE_SMQ_RECORD : : 
57 DD OOOF PUSHL SOE : 3517 
OC AE DD 000F7 PUSHL  SQX_N ; 


F 
SND JBC SSNDACC, SSNDSMB, and $SNDJBC services 16-Sep-1984 00:27:53 AX-11 Bliss-32 V4.0-742 
v06-006 18-808- 1 3be 8 $5:78 JOBCTL.SRCJSNDJBC.B32;1 
000000006 EF FB OOOFA CALLS #2, UPDATE_GETQUI_DATA 
50 10 AE 96 rg 2010) 13$ SUBL3 SQE, SQX, Ro - 
a SURE BSE ARN RRB i) 
50 00 28 «A? 2 2¢ ate MOVCS R11, PO tgar), #0, RO, (SQE) 
16 AE DS 00117 TSTL  SQE_N 
30 if OO11A BNEG  16$ 
67 95 0011C TSTB  —s- (SQE) 
2C 12 OO11E BNEQ 16$ 
01 OC AE D1 00120 CMPL  SQX_NP, #1 
Op le 00124 BNEQ 14$ 
50 04 AE 00000064 8F C1 00126 ADDL3 #100, SQXx_P, RO 
60 D4 O01 ¢F CLRL —- (RO) 
03 1* 00131 BRB 15$ 
04 BE v4 00133 148:  CLRL aSQxP 
OC AE DD 00136 15$:  PUSHL SQx_NP 
000000006 EF 01 FB 00139 CALLS #1, REWRITE RECORD 
08 AE DD 00140 PUSHL  SQX_N 
000000006 EF 01 FB 00143 CALLS #1, DEALLOCATE_RECORD 
4D 11 OO14A BRB 18$ 
Oc AE DD 0014C 16$:  PUSHL SQX_NP 
000000006 EF 1 FB OO14F CALLS #1, REWRITE RECORD 
OC AE 08 AE 00 00156 MOVL § SQX_N, SQX_NP 
04 AE 10 AE dO 00158 MOVL  SQX; 
08 AE 10 BE DO 00160 MOVL  aSQX, SQR_N 
OC 12 00165 BNEQ 17$ 
OC AE DD 00167 PUSHL  SQX_NP 
000000006 EF 01 FB OO16A CALLS #1, REWRITE_RECORD 
26 11 00171 BRB 18$ 
08 AE DD 00173 17$: | PUSHL SQX_N 
000000006 EF 01 FB 00176 CALLS #1, READ_RECORD 
10. AE 50 DO 90170 MOVL. RO, SOX 
57 10 AE 0c Ci 00181 ADDL3 #12, SQX, SQE 
14 AE D4 00186 CLRL_ SQ 
56 04 AE 000001C4 8F C1 00189 ADDL3 #452, SOX_P, R6 
66 67 28 28 00192 MOVCS #40, (SQEJ, (R6) 
FF68 31 00196 BRW 13$ 
50 01 DO 00199 18%: MOVL #1, RO 
04 0019C¢ RET 
57 28 C0 0019D 19$:  ADDL2 #40, SQE 
FEAB 16 AE 01 OB F1 001A0 ACBL #11. #1, SQE_N, 5$ 
OC AE DD OO1A7 20$:  PUSHL SQX_NP 
000000006 EF 01 FB OOIAA CALLS #1, RELEASE RECORD 
OC AE 08 AE DO 00181 MOVL  SQX_N, SQx_AP 
04 AE 10 AE DO 001B6 MOVL  SQX7 Sax P 
08 AE 10 BE v0 001BB MOVL aSQX, SQR_N 
FE74 31 001C0 BRW 2 
50 00048038 8F DO 001C3 21$:  MOVL #294968, RO 
04 OO1CA RET 


; Routine Size: 459 bytes, 


Routine Base: 
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1 
SSNDACC, SSNDSMB, and SSNDJBC services 18-Sep-1984 00:92: AX-1 


Bliss-32 V4.0-742 Page 85 
14-Sep-19 9 (283 


1 $ 
JOBCTL.SRCIJSNDJBC.832;1 


<v 
ez 


rat | ROUTINE SJC_ENTER_FILE(SQX_N,SQE,SMQ_N,SMQ)= a 
605 1 !+¢ : 
606 1!  § 
607 1 ! FUNCTIONAL DESCRIPTION: >; 
one : This routine processes the SJCS_ENTER_FILE (SMRSK_ENTER) request. o 3 
610 1 ! INPUT PARAMETERS: i 
617 1! SQX_N - Record number of SQX. | 
ols i SQE - Pointer to SQX entry. oy 
3613 1! SMQ_N - Record number of SMQ. 3 
sole : SMQ - Pointer to SMQ. ae 
3616 1 ! IMPLICIT INPUTS: 2 | 
golf \ MBX - Pointer to buffered mailbox message. o 3 
3619 1 ! OUTPUT PARAMETERS: i 
3620 1! NONE - 3 
3621 1! ae 
3622 1 ! IMPLICIT OUTPUTS: ae 
3623 1! NONE a; 
3624 1! i; 
3625 1 ! ROUTINE VALUE: e 3 
$058 : Completion status to be returned to requestor. ae 
3628 1 ! SIDE EFFECTS: 2; 
eth 1! NONE a 
3630 1! ae 
9631 1 f<= : 
3632 1 - 
3635 2 BEGIN : 3 
3635 2 SQE: REF BBLOCK, : Pointer to SQX entry - 3 
3636 2 Sma: REF BBLOCK; ! Pointer to SMQ - 
3637 2 LOCAL a3 
3638 2 JH_N, ! Record number of SJH - 3 
3639 2 JH: REF BBLOCK, ! Pointer to SJH a 
3640 2 SQR_N, ! Record number of SQR a 
3641 2 SQR: REF BBLOCK ! Pointer to SQR o: 
3642 2 SRB: BBLOCKE5121, ' Local service response block 

3643 2 RESULT, ! Result cf enqueue 

3644 2 MQ: REF BBLOCK, ! Pointer to executor SMQ 

3645 2 STATUS_1, ' Status return 

306 § STATUS .¢- ' Status return 

64 STATUS_5, ! Status return 

3648 2 STATUS_4; ! Status return 

3649 2 

3650 2 

3654 5 : Ensure that the requestor (as W access to the queue. 

£38 IF NOT CHECK_W_ACCESS(.SMQ) 

654 TH 

655 RETURN JBC$_NOPRIV; 

8 

3025 . Ensure that the requestor has W access to the log queue if specified. 


4 i 
SSNDACC, SSNDSMB, and SSNDJBC services 16-Sep-1984 00:27:53 AX-1 32 v4 4 SN 
: ex 800713Rs 99:92:23 Ore snsee o3ee4 Page 86 


< 
ean 


660 if g1 TEM_PRESENTCSJCS_LOG_QUEUE 
66 it a CHECK _W_ACCESS(.VALUE_LOG_QUEUVEC1]) 
664 RETURN JBC$_NOPRIV; 


roth ! Allocate the job record. 


3669 STATUS. 1 = CREATE_SJH_RECORD(.SMQ_N ; SMa; SJH_N, SJH); 
3670 2 IF NOT” LSTATUS.1 1 THENRETURN .STATUS_1 


671 

seh 

3017 : Apply options to the job record. 

3675 STATUS _2 = APPLY_SJH_OPTIONS(.SJH); 
3676 of NOT” .STATUS_2- 
zor7 THEN 

678 BEGIN 
3679 DELETE_SJH 9p ree SJH_N, .SJH); 

3680 RETURN” »STATU 
3681 END; 
368 | 
368 
Sexe Default the form if necessary. 
3686 IF NOT .SMQLSMQ$V_BATCH] AND .SJHCSJHSL_FORM_LINK] EQL 0 

3687 THEN 

3688 BEGIN 

3689 LOCAL 

<eae SFM_N; ! Record number of SFM 

3692 IF NOT FIND_FORM_NUMBER(O; SFM_N) 

3693 THEN 


BEGIN | 
DELETE_SJH_RECORD(.SJH_N, .SJH); 
RETURN “JBCS$_NOSUCHF ORM; 


END 
SJHCSIMBL FORM_LINK] = .SFM_N; 


; Create the file record. 


STATUS_3 = CREATE_SQR -RECORD(.SJH; SQR_N, SQR); 
i ae ~STATUS_3 ~ 


BEGIN 
DELETE _SJH_ RECORD(.SJH_N, .SJH); 
Att .STATUS_3; 


‘ : Apply options to the file record. 


STATUS. 4 = APPLY_SQR_OPTIONS(.SJH, .SQR); 
IF NOT” .STATUS_4~ 
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1 
SSNDACC, SSNDSMB, and SSNDJBC services 15-Sep-1984 00: 90:3 AX-11 Bliss-32 V4.0-74 
14-Sep-1984 :537:1 JOBCTL.SRCIJSNDJBC.B32; 
THEN 
AT bs 
SQRLSQR$V_DELETE_ FILE] = FALSE 
DELETE _SJA_RECORD(.SJH_N, .SJHS; 
DELETE_SQR_RECORD(.SQR_N, .SQR); 
3 ae -STATUS_4; 


: Enqueuve the single job file record to the job header record. 
SQRCSYM$w_SEQUENCE] = 1; 

S.JHCSJHSL-FILE LIST] = SJHCSJHSL_FILE_LIST_END] = .SOR_N; 
ReWRITE_RECORDT.SQR_N); 

Return the job identification. 


RSPCRSP_W_ENTRY_NUMBER] = .SJHCSYM$L_ENTRY_NUMBER]; 


Enqueue the job on the appropriate queue. 
ENQUEUVE_JOB(.SJH_N, .SJH; RESULT, ESMQ); 


Return status including required output items. 


CREATE_SRB(SRB); 
TF ijl TEM_PRESENTLSJC$_ENTRY NUMBER, OUTPUT] 


BEGIN 
LOCAL 
P: REF VECTORC WORD]; 
P = LOCATE_SRB_OUTPUT_ITEM( 
SUC$_ENTRY_NUMBER OUTPUT, VALUE_ENTRY_NUMBER_OUTPUT); 
PCO) = .SJHCSYASL_ENTRY NUMBER); 
COMPLETE _SRB_OUTPOT_ITEM(SRB, 2); 


ND; 
IF, JTER_PRESENTCSJCS_JOB_STATUS_OUTPUT] 


SN NN SSS SSS 


o 


BEGIN 
COMPLETE_SRB_OUTPUT_ITEM( 
398 STATUS MESSAGE ( 
LOCATE SRB_OUTPUT_ITEM( 
SJC$_JOB_STATUS_OUTPUT, VALUE_JOB_STATUS_OUTPUT), 


NNN 
AAO 
ws 


*SJH, 
nes "ESMQ)); 
SEND_SERVICE_RESPONSE_MESSAGE (SRB, JBC$_NORMAL) ; 


HAAN AA ANNI ANNA ANIA AIAI AAAI ANI IAAI NIAAA NIAAA AAAI NINA NAA 


PRIPRIDPRIANI NAAN NAIA PID IAAI AAA AAI I RIPPON PUPIPONOPONIPONUAIPUNPONONPUNINON) 
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: 3 
SNDJBC SSNDACC, SSNDSMB, and SSNDJBC services 16-Sep-1984 00:27:5 AX-11 Bliss-32 V4.0-742 Page 88 
04-000 1eneee= fa ae PS:gh Fs | PANETT Bliss ee eB rae 9° (20) 
; 733 77% 
; 2754 775 2 REWRITE_RECORD(.SJH_N); 
> 2755 776 2 REWRITE-RECORD(.SMQ-N) : | 
: 3736 777 20 
: 2757 778 1 END; 
copa veers «| eh Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 3603 | 
° ave . e o e P i 
59 000000006 EF 9€ 00002 MOVAB LOCATE §RB OUTPUT_ITEM. R9 : 
58 000000006 EF 9E 00009 MOVAB REWRITE_RE é ; 
57 00000000G EF 9€ 00010 MOVAB DELETE_SJH_RECORD, R7 : 
56 00000000' EF 9E 00017 MOVAB ITEM PRESENT+12, R6 ; 
5E FEOQO CE 9E 00016 MOVAB =-512TSP), SP : 
54 10 AC DO 0002 MOVL SMQ, R4 ; 3653) 
54 DD 00027 PUSHL 4 : | 
000000006 EF 01 FB 000¢9 CALLS #1, CHECK_W_ACCESS ; 
12 50 €9 00030 BLBC ~—_ RO, -1$ ; 
16 66 01 £1 00033 BBC #1, ITEM_PRESENT+12, 2$ + 3660. 
04F6 C6 DD 00037 PUSHL VALUE _LOG_QUEUE+4 : 3662 | 
000000006 EF 01 FB 00038 CALLS #1, CRECK~W_ACCESS ; 
08 50 €8 00042 BLBS RO. 2$ ; | 
50 00048020 8F D0 00045 18 MOVL #294944, RO ; 3664 | 
04 0004C RET ; | 
54 DD 0004D 2$ PUSHL R4 : 3669. 
0c AC DD O0004F PUSHL SMQ_N $ 
000000006 _ EF 02 FB 00052 CALLS #2, CREATE_SJH_RECORD : | 
55 5A DO 00059 MOVL R10, R5 : 
! 52 5B DO 0005¢ MOVL R11. R2 ; 
01 50 £8 0005F BLBS § STATUS_1, 3$ : 3670) 
04 0006¢ RET ; | 
52 DD 00063 3$ PUSHL SJH : 3675. 
00000000G_ EF 01 FB 00065 CALLS #1, APPLY SJH_OPTIONS é 
5A 50 pO 0004C MOVL RO, STATUS 2 ; 
0B 5A EB O0506F BLBS STATUS_2, &$ ; 3676 | 
52 DD yon72 PUSHL SJH : 3679 | 
55 DD v0074 PUSHL  SJH_N : 
67 02 FB 00076 CALLS #2, DELETE_SJH_RECORD ; 
50 5A 00 00079 MOVL STATUS_2, RO ; 3680 
04 0007¢ RET ; | 
26 Oc AG EB 9007 4$: BLBS 12CR4) . 6$ : 3686 | 
OOFC C2 05 00081 TSTL = 232 (SJH) ; | 
20 12 00085 BNEG 6$ ; 
E D4 00087 CLRL = = (SP) > 3692 
00000000G_ EF 01 Fe 00089 CALLS #1, FIND_FORM_NUMBER ; 
OF 50 €8 00090 BLBS RO. 5$ ; | 
3 DD 00095 PUSHL SJH : 3695 
55 DD 00095 PUSHL SJH_N ; | 
67 02 FB 00097 CALLS ae DELETE_SJH_RECORD ; 
50 00048158 &F BO O009A MOVL #295256, RO : 3696. 
OOFC C2 5A 00 dong 5$: MOVL SFM_N, 252(SJH) ; 3698 | 
52 DD OOO? 6$: PUSHL H : 3704 
000000006 EF 01 FB 000A9 CALLS #1, CREATE_SQR_RECORD ; 


8 eee 


| kK 1 
SND JBC SSNDACC, SSNDSMB, and $SNDJBC services 16-Sep-1984 00:27:5 AX-17t Bliss-32 V4.0-742 Page 89 
/ ¥06=060 e8eb-19be 1959721 JOBCTL. SRCISNDJBC.B32; 1 9° (20) 
53 50 DO 0008 MOVL RO, STATUS_3 : ; 
09 28 P $oB8 BLBS § STATUS_3, 78 : 3705, $ 3 
3 DD 0086 PUSHL  SJH ; 3708 : 3 
55 DD 0008 PUSHL SJH_N : 3 
67 02 FB OO0BA CALLS #2, DELETE_SJH_RECORD F : 3 
26 11 000BD BRB : 3709. : 3 
0804 8F 8B OOOBF 7S: PUSHR #*M<R2,R11> : 3715) : ; 
000000006 Ef 02 FB 000C3 CALLS #2, APPLY_SQR_OPTIONS : | : 
3 50 DO OOOCA MOVL RO, STATUS 4 : : 3 
19 53 cs 000CD BLBS_ STATUS 4, 9$ : 3716 : 3 
Oc AB 01 8A 00000 BICB2 #1, 12Tsdr) ; 3719 : 3 
2¢ Pd 90004 PUSHL  SJH : 3720 : 3 
55 DD 00006 PUSHL SJH_N : > 3 
67 02 FB 0008 CALLS #2, DELETE_SJH_RECORD Ppt [i 3 
7E 5A 7D 000DB MOVO  SQR_N, -(SP : 3721) : 3 
000000006 EF O¢ FB O00DE CALLS #2, DELETE SQR_RECORD ; : 3 
50 53 DO OO0ES 8$: MOVL  STATUS_4, RO : 3722. : 3 
04 000E8 RET : | : 3 
06 AB 01 BO OO0ED 9$: MOVW #1, 6(SQR) : 3728 : 3 
OOF8 2 5A DO OOOED MOVL SQR_N, 248(SJH) 3 3729) ; 3 
OOF4 C2 5A DO 000F2 MOVL SQR-N, 244(SJH) : ; 3 
5A DD 000F7 PUSHL  SQR~ : 3730) : 3 
68 01 FB 000F9 CALLS #1, REWRITE_RECORD : ; 3 
F4AE C6 08 A2 BO OOOFC MOVW 8(SJH), RSP#2 : 3735 : 3 
52 DD 00102 PUSHL SJH : 3740 : 3 
55 DD 00104 PUSHL SJH_N : : 3 
000000006 EF 02 FB 00106 CALLS #2, ENQUEUE_JOB ; | : 3 
5E DD 0010D PUSHL SP 3 3745) : 3 
000000005 EF 01 FB 0010F CALLS #1, CREATE SRB ; | : 3 
F7, AB 95 00116 TSTB = ITEM_PRESENT+3 ; 3746 | : 3 
1B 18 00119 BGEQ ; | : 3 
76 A6 OF 0011B PUSHAB VALUE_ENTRY_NUMBER_OUTPUT 3 3752. : 3 
1F DD OO11E PUSHL #31 : | ; 3 
08 AE 9F 00120 PUSHAB SRB ; : 3 
69 03 FB 00123 CALLS #3, LOCATE_SRB_OUTPUT_ITEM ; : 3 
60 08 A2 BO 00126 MOVW  8(SJH), (PY : 3755 | ; 3 
02 DD 0012A PUSHL #2 ; 3756) : 3 
04 AE 9F 0012C PUSHAB SRB : 2 3 
000000006 EF 02 FB 001 ¢F CALLS #2, COMPLETE_SRB_OUTPUT_ITEM F 
2B FF Ab E9 00136 108: BLBC ITEM_PRESENT#11, 11$ ; 3758 | 
0804 8F BB 0013A PUSHR #*M<R2,R11> : 3769 
54 DD 0013E PUSHL R& : 3768 
O4DE C6 9F 00140 PUSHAB VALUE _J08 STATUS_OUTPUT : 3765 
7E 58 8F 9A 00144 MOVZBL #88, =(SPY : 
14 AE 9F 00148 PUSHAB ; 
69 03 FB u014B CALLS #3, LOCATE_SRB_OUTPUT_ITEM ; 
50 DD O014E PUSHL R : 
5A DD 0190 OUSHL RESULT > 3764 | 
000000006 _ EF 05 FB 138 CALLS #5, JOB_STATUS_MESSAGE ; 
50 DD 0015 PUSHL RO ; 7 iA 
04 AE 9F 00158 PUSHAB SRB : 3761 
000000006 _ EF 0 FB 13 CALLS ue COMPLETE_SRB_OUTPUT_ITEM ; 
00040001 8F DD 00165 11% PUSHL #262145 : 3772 
04 AE 9F 00168 PUSHAB SRB ; 
000000006 _ EF 08 rE 0166 CALLS #2, SEND_SERVICE_RESPONSE_MESSAGE : 
55 0D 001 PUSHL f : 3775 
68 01 FB 00177 CALLS #1, ~REWRITE_RECORD ; 
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44 } ROUTINE SJC_MERGE_QUEUE (SQX_N,SQE,SMQ_N,SMQ)= 
781 1 !44 
te¢ 1! 
785 1 ! FUNCTIONAL DESCRIPTION: 
ree : This routine processes the SJC$_MERGE_QUEUE (SMRSK_MERGE) request. 
786 1 ! INPUT PARAMETERS: 
376 1! SQX_N - Record number of SQX. 
res 1! SQE - Pointer to SQX wy 
789 1! SMQ_N - Record number of SMQ. 
rey : } SMQ - Pointer to SMQ. 
3738 1 ! IMPLICIT INPUTS: 
oe? : MBX - Pointer to buffered mailbox message. 
3730 1 ! OUTPUT PARAMETERS: 
3/36 es NONE 
797 1! 
3798 1 ! IMPLICIT OUTPUTS: 
3799 1! NONE 
3800 1! 
3801 1 ! ROUTINE VALUE: 
3008 : } Completion status to be returned to requestor. 
38046 1 ! SIDE EFFECTS: 
3805 1! NONE 
3806 1! 
3807 1 !-- 
3808 1 
3809 2 BEGIN 
3810 2 MAP 
3811 2 SQE: REF BBLOCK, ! Pointer to SQX entry 
3e18 2 SMQ: REF BBLOCK; ' Pointer to SMQ 
3813 2 LOCAL i 
3814 2 DSMQ_N, ! Record number of destination SMQ 
5815 2 DSMQ: REF BBLOCK, ' Pointer to destination SMQ 
3816 2 SJH_N, ! Record number of SJH 
3817 2 JH: REF BBLOCK, ' Pointer to SJH 
3818 2 CTX: BBLOCKCQSM_K_CTXSIZE]; 
3819 2 
3820 2 . : : 
$55: 2 Pick up a pointer to the destination queue. 
3855 ; DSMQ_N = .VALUE_DESTINATION QUEUE(O); 
3824 DSMQ™= .VALUE_DESTINATION_QOEUVE(1); 
3825 2 
3826 2 
$555 2 : Ensure that the requestor has E access to both queues. 
3855 IF NOT CHECK_E_ACCESS(.SMQ) 
S34 OR mor CHECK_E_ACCESS(.DSMQ) 
832 RETURN JBC$_NOPRIV; 
te8z ; 
3835 ! Ensure that the source queue is not the same as the destination queue, 
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8 § and that the queue types are compatible. : 

§ 8 IF .SMQ_N EQL .DSMQ_N 3 
24 OR . SMQTSMQ$V_BATCH] NEQ .DSMQCSMOQ$V_BATCH] i 3 
si) RETURN JBC$_INCDSTQUE; ; 3 
84 s 5 
$e2¢ Dequeue all jobs from the source queue and requeue them to the target queue. : 3 
846 CHSFILIL(O, QSM_K_CTXSIZE, CTX); 2 
84 WHILE SEARCH QOEDES( | F ; 
B46 QSM_M_OPEN OR QSM_M_TIMER OR QSM_M_PENDING OR QSM_M_HOLD, : 3 
3850 «Be : 3 
3851 § 3 5 
385¢ Q5M_K_REMOVE, | 73 
3853 2 CTX; 3 35 
3854 é SJH_N, SJH) 3: 3 
3855 DO .3 
3856 3 BEGIN 3; 3 
3857 H SJHCSJH$L_QUEUE_LINK] = .DSMQ_N; 3 3 
3859 3 REWRITE RECORD(.SJH_N); 3 3 
3860 2 END; ; 3 
3861 2 3 3 
3862 2 3 3 
3863 2 REWRITE_RECORD(.SMQ_N); re | 
3864 2 | ° b 
3865 2 . 2 
3866 2 SS$_NORMAL : 3 
3867 1 END; : ; 
; 3 
s 3. 
3; 3 
33 
OFFC 00000 SJC_MERGE QUEUE: 33 
-@ORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 3779 35 
5E 24 C2 90002 SUBL2 #36, : : 3 
57 00000000' EF D0 90005 MOVL § VALUE_DESTINATION_QUEUE, DSMQ_N ; 3823. ; 3 
52 00000000" EF D0 0000; MOVL § VALUE"DESTINATION-QUEUE+4, DSAa > 3824 | : 3 
56 10 AC 00 00018 MOVL SMG, R6 : 3829 | 7 3 
56 DD 9 017 PUSHL : 3 3 

00000000G_ EF 01 FB 0019 CALLS #1, CHECK_E_ACCESS : : 

0c 50 €9 00020 BLBC RO, 1$ : 3 
52 DD 00023 PUSHL DSMQ : 3830) 3; 3 
00000000G_ EF 01 Fe 00025 CALLS #1, CHECK_E_ACCESS ; 3 3 
08 50 €8 0002C BLBS RO es : : 3 
50 00048020 &F ? bho F 1$: ners #294 44, RO ; 3832. : ; 
57 OC AC 01 00037 2s: CMPL § SMQ_N, DSMQ_N ; 3838 | : 3 

09 13 pa BEQL 3$ 3 3 

50 Oc A 0c A6 8D 000 p XORB3 12(R6), 12(DSMQ), RO ; 3839 : 

0 50 €9 0004 BLBC e : 3 

50 00048120 8F 00 b0046 3$: MOVL #295200, RO : 3841 ; 
04 00040 RET : : 3 


2 
SNDJBC SSNDACC, SSNDSMB, and $SNDJBC services 18-56 -1984 00:27: 
v04-000 12-80 8- 19k 99:95 
24 00 6E 00 2c se 4$: MOVCS 
6E 005 
SE DD 00054 5$ PUSHL 
01 bp bnee PUSHL 
7E 7C 0005 CLROQ 
7E D4 OOOSA CLRL 
56 DD 0005C PUSHL 
0c AC DD OO0SE PUSHL 
OF OD 149 PUSHL 
00000000G_ EF 8 FB 00063 CALLS 
1A 0 €E9 QO06A BLBC 
0134 9 7 0 p68 MOVL 
E 8 7D 000 ¢ MOVQ 
00000000G_ EF 0 FB 0007 CALLS 
5 DD 0007C PUSHL 
00000000G_ EF 01 FB Ht CALLS 
CD 11 0008 BRB 
Oc AC DD 00087 6$ PUSHL 
00000000G_ EF 01 FB OO08A CALLS 
50 01 DO 00091 MOVL 
04 00094 RET 
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#0, (SP), #0, #36, CTX 


#8, SEARCH_QUEUES 
DSMQ_N, 308(SJH) 
-(SP) 


HA, 
#2, ENQUEUE_JOB 
SJA_N 
#1. REWRITE RECORD 
SMQ_N 
#1, "REWRITE_RECORD 
#1, RO 
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SSNDACC, SSNDSMB, and S$SNDJBC services tg ~30n- 138% 00: 92:3 
14-Sep-1984 12:57:1 
soe ] ROUTINE SJC_PAUSE QUEUE (SQX_N,SQE,SMQ_N,SMQ)= 
870 1 !4+ 
871 1: 
1G 1 ! FUNCTIONAL DESCRIPTION: 
1h ! } This routine processes the SJC$_PAUSE_QUEUE (SMRSK_PAUSE) request. 
875 1! INPUT PARAMETERS: 
876 1! SQX_N - Record number of SQX. 
3877 1! SQE - Pointer to SQX entr 
878 1! SMQ_N - Record number of S$ na: 
$44 : SMO” - Pointer to SMQ. 
881 1 ! IMPLICIT INPUTS: 
3856 : MBX - Pointer to buffered mailbox message. 
3884 1 ! OUTPUT PARAMETERS: 
3885 1! NONE 
3886 1 ! 
3887 1 ! IMPLICIT OUTPUTS: 
3888 1! NONE 
3889 1! 
3890 1 ! ROUTINE VALUE: 
$803 : } Completion status to be returned to requestor. 
3598 1 ! SIDE EFFECTS: 
3894 1! NONE 
3895 1! 
3896 1 !-- 
3897 1 
3898 2 BEGIN 
3899 2 MAP 
3900 2 SQE: REF BBLOCK, ! Pointer to SQX entry 
3901 2 MQ: REF BBLOCK; ! Pointer to SMQ 
390 § LOCAL 
390 STATUS; ' Status return 
3904 § 
3905 
Sone 2 Ensure that the requestor has E access to the queue. 
3908 ; IF NOT CHECK_E_ACCESS(.SMQ) 
3909 THEN 
3910 2 RETURN JBC$_NOPRIV; 
ae 
$18 $ If a previous service is in progress, refuse this request. 
3918 2 IF .SMQCSMO$V_PAUSING) 
916 OR .SMOCSMOSV— RESETTING) 
917 OR .SMQ SMOSV— G 
918 OR .SMQCSMOQSV_STARTING) 
919 OR :SMQ SMOSV— STOPPING) 
$059 THEN 
; 1 RETURN JBC$_INCOMPLETE; 
Bee 
3924 ! If this is a generic or logical queue, mark the queue stopped. 
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so 
uw 


BEGIN 
If there are starting jobs in the queue, remove these. 
REQUEUE_STARTING_JOBS(.SMQ_N, .SMQ); 


if .SMatsmasy GENERIC QUEUE] 
OR one SMQS$L-ASSIGNED_QUEUE_LINK] NEQ 0 : 

"smacsmasy _STOPPED] = TRUE : 
ELSE IF TESTBITCS(SMOCSMOSV, PAUSED) : 


If there are executing jobs, pause them. 
IF _«,SM@CSMQSB_CURRENT_JOB_COUNT] NEQ 0 
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BEGIN 
! If this is a remote queue, enter a remote request. Otherwise, issue 
35 the pause. 
39 SMOQCSMQ$V_PAUSED) = ALSE; 
$ ies SYSID_NEQ(THIS “SYSID. SMaCSMQST _SYSIDJ) 
He «op STATUS = CREATE_SRQ_RECORD(SROQSK_PAUSE_QUEUE, .SMQ_N, .SMQ) 
3 STATUS = PAUSE_EXECUTION(.SMQ_N, .SMQ); 
39 
4 } If the pause failed, allow the queue to restart. 
3960 iF NOT .STATUS AND .STATUS NEQ 0 
42 THEN 
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$00 FIND_PENDING JOBS(.SMQ_N, .SMQ) 
3964 
3965 REWRITE_RECORD(.SMQ_N); 
3966 RETURN [STATUS; 
U4 END; 
968 END; 
3969 
3970 
3971 EWRITE RECORD(.SMQ_N); 
$056 S$_NORPAL 
397 ND; 
003C 00000 SJC_PAUSE QUEUE: 
-@ORD Save R2,R3,R4,R5 ; 3868. 
55 00000000G EF 9E 00002 hovAB REW RIT E_R RECORD, RS : 
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2 
SSNDACC, SSNDSMB, and SSNDJBC services 16-Sep-1984 00:92: 


5 AX-11 Bliss-32 V4.0-742 
1 JOBCTL.SRCISNDJBC.B32;1 


SMQ, R2 

#1, CHECK_E_ACCESS 
RO. 1$ 

#294944, RO 


2, (R3), 10$ 

SHON, RG 

#2, REQUEUE_STARTING_JOBS 
77 (Re) 


#4, (R3) 

THIS_SYSID, 262(R2) 
THIS_SYSID+4, 266(R2) 
R2 

R4 

#6 

#3, CREATE_SRQ_RECORD 
8$ 

R2 

R4 

#2, PAUSE_EXECUTION 
RO, STATUS 

STATUS, 9$ 

9$ 

R2 

R4 

are F IND_PENDING_JOBS 
#1, REWRITE_RECORD 
STATUS, RO 


SMQ_N 
#1, "REWRITE_RECORD 
#1, RO 
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; Routine Size: 


1984 00:27:5 AX-11 Bliss-32 V4.0-742 
-1984 19395538 JOBCIL.SRCIJSNDJBC.B32;1 


ie} 
ie} 
144 


FUNCTIONAL DESCRIPTION: 
This routine processes the SJC$_RESERVED_FUNC_1 request. 


INPUT PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


Completion status to be returned to requestor. 
SIDE EFFECTS: 
NONE 


Ensure that the requestor has OPER privilege. 
if NOT .BBLOCKCMBXCACMSQ_PRVMSK], PRVS$V_OPER] 
RETURN JBC$_NOOPER; 


ve 
0 
oO 
N~ 
= POPPIN NOPONONONONO NY 2 


SS$$_NORMAL 
END? 


0000 00000 SJC_RESERVED_FUNC_1: : 
. WORD sive nothing 


50 00000000" EF DO 00002 MOVL , 
08 06 AO 02 £0 90009 BBS ue 6(RO), 1$ 
50 00042894 B&F DO 000g MOVL #272532, RO 
04 0001 RET 
50 01 DO 00016 1$: MOVL #1, RO 
04 00019 RET 


26 bytes, Routine Base: CODE + 1494 
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: 2996 4013 1 ROUTINE SJC_RESERVED_FUNC_2= 

; 2997 4014 1 nm ~ r 

: 2998 ent? 1 le4 

: 2999 4016 1! 

; 5000 4017 1 ! FUNCTIONAL DESCRIPTION: 

: ed oRi8 : This routine processes the SJCS_RESERVED_FUNC_2 request. 
; 300 4020 1 ! INPUT PARAMETERS: 

: 3004 4021 1! NONE 

: 3005 40 ¢ 1! 

; 3006 40 1 ! IMPLICIT INPUTS: 

; $007 4024 1! NONE 

: 3008 4025 1! 

; 3009 4026 1 ! OUTPUT PARAMETERS: 

: 3010 4027 1! NONE 

; 3011 4028 1! 

3 Sor§ 4029 1 ! IMPLICIT OUTPUTS: 

; 301 4030 1! NONE 

; 3014 4031 1! 

Blo Be 11a sooo 

: ' ompletion status to be returned to requestor. 
: 3017 4034 1 i ’ 
; 3018 4035 1 ! SIDE EFFECTS: 

; 3019 4036 1! NONE 

: 3020 4037 1! 

; 3021 4038 1 !-- 

; soS8 4039 1 

: 302 4040 2 BEGIN 

: 3024 4041 2 

: 3025 4042 2 

2058 rob § Ensure that the requestor has OPER privilege. 
: 3028 4045 2 IF NOT .BBLOCKCMBXCACMS$Q_PRVMSK], PRVS$V_OPER) 

3 acep 4046 ¢ T 

; 3030 4047 RETURN JBC$_NOOPER; 

: 3031 4048 2 

: 3032 4049 2 

; 3033 4050 2 SS$_NORMAL 

3; 3034 4051 1 END; 


0000 SJC_RESERVED_FUNC_2: 
. WORD 


00 
0 Save nothing : 4013 
50 00000000" EF pO 00002 MOVL MBX, RO + 4045 
08 06 AO 02 £0 00009 BBS #2 6(RO), 1$ ; | 
50 00042894 B&F DO 0000E MOVL #272532, RO > 4047 
04 0001 RET ; 
50 01 DO 00016 1$: MOVL #1, RO : 4051 
04 00019 RET : 


; Routine Size: 26 bytes, Routine Base: CODE + 14AE 
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: 30 $ 1028 1 ROUTINE SJC_RESET_QUEUE (SQX_N,SQE,SMQ_N,SMQ)= : 
; 30 4055 1 ; 
; 3038 4054 1 !+4 ; 
; 3039 4055 1! : 
: 3040 rt 1! FUNCTION. DESCRIPTION: ° 
: 304, et ts ! ; This routine processes the SJC$_RESET_QUEUE request. ‘ 
; Oc8 4059 1 | INPUT PARAMETERS: : 
; 3044 4060 1! SQX_N - Record number of SQXx. ‘ 
: 3045 4061 1! SQE - Pointer to SQx entry. ‘ 
; 3046 ree | 1! SMQ_N - Record number of SMQ. ‘ 
; $006 4065 1! SMQ~ - Pointer to SMQ. ‘ 
; 3048 4064 1 : 
; 3049 4065 1! IMPLICIT INPUTS: ; 
: 3050 4066 1! MBX - Pointer to buffered mailbox message. ‘ 
: 3051 4067 1! : 
; $028 4068 1 ! OUTPUT PARAMETERS: ‘ 
; 305 4069 1: NONE : 
: 3054 4070 1! : 
; 3055 4071 1 ! IMPLICIT OUTPUTS: ; 
: 3056 4072 1! NONE ; 
: 3057 4073 1! : 
; 3058 4074 1 ! ROUTINE VALUE: : 
; 3059 4075 1! Completion status to be returned to requestor. ; 
; 3060 4076 1! : 
; 3061 4077 1 ! SIDE EFFECTS: : 
; 306 4078 1! NONE : 
; 306 4079 1 ; 
; 3064 4080 1 !-- ; 
: 3065 4081 1 : 
: 3066 4082 2 BEGIN : 
; 3067 4083 2 MAP 

; 35068 4084 2 SQE: REF BBLOCK, ! Pointer to SQX entry 

: 3069 4085 5 : REF BBLOCK; ! Pointer to SMQ 

: 3070 4086 LOCAL 

; 3071 4087 2 STATUS; ' Status return 

: 3072 4088 2 

; 3073 4089 2 

3 S098 ret § Ensure that the requestor has E access to the queue. 

; 3076 4092 § IF NOT CHECK_E_ACCESS(.SMQ) 

: 3077 4093 THEN 

; 3078 4094 2 RETURN JBC$_NOPRIV; 

: 3079 4095 

; 3080 4096 , ; 

; 3081 4097 ! If a previous service is in progress, cancel it. 

; 308 4098 ! 

3 $08 4099 IF .SMQCSMQ$V_PAUSING] 

: 3084 4100 OR .SMQCSMOSV_RESETTING) 

; 3085 4101 OR .SMQCSMQ VR RESUMING) 

; 3086 $106 OR .SMOCSMOSV— op inal ine 

3; 3087 410 OR > SMO SMO$V_ STOPPING 

; 35088 4104 THEN 

; 3089 4105 BEGIN 

; 3090 4106 SCAN_INCOMPLETE SERVICES(ISRV_K_PURGE_SMQ, .SMQ_N); 

: 3091 4107 SMQCSMQSV "PAUSING) = FALSE; 

: 3092 4108 SMOCSMOSV-RESETTING] = FALSE; 


2 
SND JBC SSNDACC, SSNDSMB, and SSNDJBC services ibesé 1984 :27: 
v04=000 1278 08- 1382 99:9: 
: 3093 SMQCSMQSV_RESUMING] = FALSE; 
: 3094 SMOCSMOSV-STARTING] = FALSE: 
; 3095 SMQLSMQSV_STOPPING) = FALSE; 
: 5096 END; 
; 3097 
098 


5 AX-11 td tes V4.0=742 
1 JOBCTL.SRCJSNDJBC .B32;1 


-SMQ); 


4109 
4110 
4111 
aii¢ 
411 
4114 
3 44 a132 } If there are starting jobs in the queue, remove these. 
; 3104 4117 SMOCSMGS$V_STOPPED] = TRUE; 
; 3108 4118 2 REQUEUE_STARTING_JOBS(.SMQ_N, .SMQ); 
; 310 4119 
5 $18e tis? 
; 3105 4121 ! Execute the reset. If the queue has a symbiont or there are executing jobs, 
: 3108 215§ } the reset must be done by the executor node. 
:; 3108 4124 IF SYSID_NEQ(THIS_SYSID, SMQCSMQ$T_SYSID]) 
: 3109 4125 AND (. SMOCSMQ$B_CORRENT_JOB_COUNT] NEQ 0 OR .SMQCSMQSL_STREAM_SCT] NEQ 0) 
3 $119 4126 ¢ THEN 
3; 3111 4127 BEGIN 
3; 3112 4128 3 SMQCSMQ$V_STOPPED) = FALSE; 
; 3113 4129 3 STATUS = CREATE_SRQ_RECORD(SROS$K_RESET QUEUE, .SMQ_N 
: 3114 4130 3 IF .STATUS NEQ 0 THEN FIND_PENDING_JOBS(.SMQ_N, .SMQS; 
: 3115 4131 3 REWRITE_RECORD(.SMQ_N); 
; 3116 4132 RETURN .STATUS; 
3; 3117 4133 3 END 
: 118 4134 2 ELSE 
; 3119 4135 2 RESET_EXECUTOR_QUEUE(.SMQ_N, .SMQ); 
: 3120 4136 2 
; 3121 4137 2 
: 3122 4138 2 REWRITE _RECORD(.SMQ_N); 
; 3123 4139 2 SS$_NORMAL 
3; 3124 4140 1 END; 


003C 00000 SJC_RESET QUEUE: 
.QORD 
seecoerss 


55 

53 
000000006 Fe 
3 00048020 
52 10 1$: MOVAB 
10 62 B 
oc 
08 
01 


0c 2$: PUSHL 


000000006 
01 
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alo lolol ole lolol el eloleleololeloale) 
PWIND | OO 
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tes] 
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EF 
62 0568 
Ad 


Save R2,R3,R4,R5 
REWRITE RECORD, R5 
sma, R 

a, CHECK_E_ACCESS 
#294944, RO 


1g¢R3) R2 
#3, (Rd), 2 
#5. (R2). 2$ 


b 
He SCAN JNCOMPLETE_SERVICES 
#1384, (R2) 

#2, 1(R2) 
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v04=000 1078¢b-198¢ 1339533 JOBCTL.SRCISNDJBC .B32; 1 9° (25), 
53 DD 0004 PUSHL R3 ; 4118 
54 0c aC dO 00080 MOVI.  SMQ_N, R4 : 
54 DD 00054 PUSHL R4 : | 
000000006 EF 02 FB 00056 CALLS #2, REQUEUE_STARTING_JOBS : 
0106 ¢3 00000000" EF D1 0005D CMPL =‘ THIS_SYSID,~262(R3) : 4126 
0B 12 00066 BNEG $ : 
010A 3 00000000" EF 81 0006 CMPW = THIS_SYSID+4, 266(R3) : 
¢ 13 00071 BEQL 7 : | 
0115 C3 95 00073 4s: TSTB 77(R3) > 4125 | 
06 12 00077 BNEQ $ : | 
OoFc § ¢3 D5 00079 TSTL 52(R3) : 
sa | 90070 BEQL $ : | 
01 A2 ¢ BA 0007F 5S: BICB2 #2, 1(R2) : 4128 
53 DD 00083 PUSHL R > 4129) 
54 DD 00085 PUSHL R& : | 
08 DD 00087 PUSHL #8 3 | 
000000006 EF 03 FB 00089 CALLS #3, CREATE_SRQ_RECORD ; 
52 30 9 00090 MOVL RO. STATUS 3 | 
0B 13 00093 BEQL © 6$ : 4130. 
53 DD 00095 PUSHL R3 ; | 
54 DD 00097 PUSHL R& : 
000000006 EF 02 FB 00099 CALLS #2, FIND_PENDING_JOBS ; | 
54 DD QOOAO 6$: PUSHL R4 3; 4131, 
65 01 FB QOOA2 CALLS #1, REWRITE_RECORD : 
50 52 D0 000A5 MOVL STATUS, RO ; 4132, 
04 OO0AB RET ; | 
53 DD OO0A9 7$: PUSHL R3 : 4135 | 
54 DD OOOAB PUSHL 4 ; 
000000006 EF 02 FB OOOAD CALLS #2, RESET_EXECUTOR_QUEUE ; | 
54 DD 000B4 PUSHL : 4138) 
65 01 FB 00086 CALLS #1, REWRITE_RECORD ; | 
50 01 DO 00089 MOVL #1, RO : 4140 | 
04 000BC RET ; | 
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ROUTINE SJC_START_ACCOUNT ING= 


+4 
! 


i FUNCTIONAL DESCRIPTION: 
This routine processes the SJC$_START_ACCOUNTING (ACCS$K_ENABACC, 
ACCSK_ENABSEL, and ACCSK_NEWFILE) request. 

INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: . : 

MBX - Pointer to buffered mailbox message. 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

aap | VALUE : 


ompletion status to be returned to requestor. 
SIDE EFFECTS: 
NONE 


kk kk ek a ad at ad od 
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BEGIN 
Ensure that the requestor has OPER privilege. 
if NOT .BBLOCKCMBXCACMSQ_PRVMSK], PRVSV_OPER] 


kt dt ot 
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= POPIPERI WNW IAIN AIR AIP PININPIPOPIDININIDID) 9 tt St tt 
mm — — 


21 
; 
1 21 RETURN JBC$_NOOPER; 
3 31 
$ $i IF _.ITEM_PRESENTCSJC$_ACCOUNTING_TYPES] 
g $1 SOR AEIUE ESET ECON EOE FLARE. ARGLST=.VALUE_ACCOUNTING_TYPES) 
206 22 BEGIN 
207 22 LOCAL 
208 22 REF BBLOCK; =! Pointer to accounting FAB 
209 22 
210 22 
211 22 FAB = .ACCOUNTING_FABS(0); 
sig 22 IF .FABCFABSW a Fe EQL 0 THEN OPEN_ACCOUNTING FILE(FALSE); 
21 22 IF .JTEM_PRESENTCSJC$_NEW_VERSION] THEN OPEN_ACCOUNTING_FILE (FALSE); 
214 22 END; 
215 $§ 
216 § 
217 3 SS$_NORMAL 
218 23 END; 
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-EXTRN  SYSSCMKRNL 
000C 00090 suc =START ACCOUNTING: | 
MOVAB OPEN. ACEOUNTING_ FILE, R3 


OR g 
53 000000006 EF 9E 0000 ; 
52 Natdiitdsk EF 9 20908 MOVAB : 
50 62 D 001 MOVL + 4211 
08 06 AO 02 €0 00 1 BBS $40) : 
50 00042894 8F DO 0001 MOVL oe 32 ko'® + 4213, 
04 0001F RET : | 
10 "BCO 82 02 E1 00020 1$ BB #2, ITEM_PRESENT, 2 + 4216 
OBE6 C2 ODD 84 6 PUSHL VAL UE_ACTOUNTING. TYPES 3 4218) 
C6 AF OF QO02A PUSHAB ip ACCOUNT I ING FLAG : | 
000000006 00 02 FB 0002D CALLS ' “SYSSCMKRN : 
19 11 00084 BRB : | 
50 0328 C2 00 0036 2$ MOVL ACCOUNTING. FABS, FAB : 4225. 
02 AO B85 00038 TSTW (FAB) : 4226. 
05 12 0003¢ BNEQ ; 
7E D4 0004 CLRL =(SP) : 
63 01 FB 90042 CALLS #1, OPEN_ACCOUNTING_FILE F 
05 OBCD C2 £9 00045 3$: LBC —s ITEM_PRESENT+13, 4$~ : 4227) 
7E D4 O004A CLRL = ; 
63 01 FB 0004C CALLS #1, OPEN_ACCOUNTING_FILE : 
50 01 DO 0004F 4$ MOVL 1, RO 3 4232) 
04 00052 RET : | 


; Routine Size: 83 bytes, Routine Base: CODE + 1592 


Ons 288 288 288 28d 288 28d 28 2d od 22d od od 28 oft 28d od 28d odd oft of odd oft off od oft off odd off off off oft 288 od odd fd odd odd fd od ode 288 28d 8d 28d 28d 28d 28d odd ode 288 od odd oft odd ods 28 


| 


N 2 
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v04-000 12-08-1382 99:95? JOBCTL.SRCISNDJBC B32; 9° 28) v04 
; ; 9 4 : ROUTINE SJC_START_QUEUE (SQX_N,SQE,SMQ_N,SMQ)= : i 
: é 4235 1 144 | 
; 4236 1 | ; 3 
; 4 4037 1 | FUNCTIONAL DESCRIPTION: ; 3 
: 3296 : 3 : } This routine processes the SJC$_START_QUEUE (SMRSK_START) request. : ; 
: 3227 4240 1 ' INPUT PARAMETERS: 34 
: 3228 4241 1 | SQX_N - Record number of SQX. i 3 
: 3269 4 4g 1 SQE - Pointer to SQx entry. ; 3 
: 3230 4243 1 SMQ_N - Record number of SMQ. ; 3 
: 3231 4 44 ! SMO - Pointer to SMQ. : i 
; 353§ 4246 1! IMPLICIT INPUTS: 3 a 
> 3234 4247 1! MBX - Pointer to buffered mailbox message. | 
: 3235 4248 1! Fe 
3 3236 4249 1 ! OUTPUT PARAMETERS: . 3 
: 3237 4250 1! NONE = 
: 3238 4251 1! $3 
; 3239 $626 1! IMPLICIT OUTPUTS: g 3 
: 3240 4253 1! NONE s 5 
: 3241 4254 1! | .3 
3 3506 4255 1 ! ROUTINE VALUE: es 
3: 324 4256 1! Completion status to be returned to requestor. 3 3 
3: 3244 4257 1! $3 
3 3245 4238 1 ! SIDE EFFECTS: .% 
: 3246 4259 1! NONE , 3 
3: 3247 4260 1! 33 
3; 3248 4261 1 !-- 33 
: 3249 o56¢ 1 s 3 
3 3250 4263 2 BEGIN 3: 3 
s 3291 4264 2 MAP 8 3 
; 3252 4265 2 SQE: REF BBLOCK, ! Pointer to SQX entry : 3 
: 3253 4266 $ SMQ: REF BBLOCK; ' Pointer to SMQ 3 3 
3: 3254 4267 LOCAL 3 3 
; 3255 4268 2 STATUS_1, ! Status return 3 
: 3256 4269 2 STATUS ¢- ' Status return | 
; 3257 4270 2 STATUS_3, ' Status return $3 
; 3258 4271 2 STATUS_4; ! S$tavus return 
: 3259 4272 2 
: 3260 4273 2 
; 3261 4274 2 ! Ensure that the requestor has E access to the queue. 
: 3262 4275 ! 
; $907 4g76 IF NOT CHECK_E_ACCESS(.SMQ) 
3; 3264 4277 THEN 
3 3265 4278 RETURN JBC$_NOPRIV; 
: 3266 4279 
: 3267 4280 
; See $53) If a previous service is in progress, refuse this request. 
; 3595 4 BS IF .SMOCSMO$V_PAUSING) 
; 3371 4284 OR .SMOCSMOSV"RESETTINGJ 
3 oe 4285 OR .SMQCSMO$V~RE SUMING 
: 337 4286 OR . SMO$V~ STARTING 
3 3274 4 OR .SMOCSMQ$V"STOPPING 
: $552 4288 THEN 
: 3276 4289 RETURN JBC$_INCOMPLETE; 


[ 8 3 
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aR 
79 3 IF .SMQCSMQ$V_PAUSED] AND .SMQCSMQS$B_CURRENT_JOB_COUNT] NEQ 0 
80 9 THEN 
81 9 BEGIN 
8 95 LOCAL 
| 38 FLAGS: BBLOCK(4]; ! Resume control flags 
8 98 
8 99 IF NOT .SMQCSMQ$V_BATCH] 
8 00 THEN 
8 01 IF .ITEM_PRESENTCSJC$_NEXT_JOBJ 
8 8 THEN 
9 30 BEGIN 
9 304 SMQCSMQ$V_PAUSED] = FALSE; 
% 305 RETURN SJC_ABORT_JOB(.SQX_N, .SQE, .SMQ_N, .SMQ); 
g 306 D; 
. 307 
4 Compute the resume control flags. 
9 AGS = 0; 
IF .ITEM_PRESENTCSJCS$_ALIGNMENT_MASK] 
THEN FLAGSCISRV_V_ALIGNMENT MASK] = TRUE; 
IF .ITEM_PRESENTCSJC$_TOP_OF _FICE] 
THEN” FLAGSCISRV_V-TOP OF ~FILEJ = TRUE; 


! If this is a remote queue, enter a remote request. Otherwise, issue 
: the resume. 


IF _SYSID_NEQ(THIS_SYSID, SMQCSMQ$T_SYSIDJ) 


STATUS_1 = CREATE_SRQ_RECORD( 
SROSK_RESUME_GUEUE, 


+ SMQ, 
-FLAGS, .VALUE_ALIGNMENT_PAGES, .VA 
. VALUE_SEARCH_STRINGCSDSC_W_LENGTH) 
. VALUE~SEARCH_STRINGCSDSC_A_POINTER 


SE 
STATUS 1 = RESUME_EXECUTION( 
“FLAGS. .VALUE_ALIGNMENT_PAGES 


-FLAGS, ,_.VA 
. VALUE_SEARCH_STRINGCSDSC_W_LENGTH) 
. VALUE~SEARCH_STRINGCSDSC_A_POINTER 


ooo 


LUE_RELATIVE_PAGE, 
4) 


LUE_RELATIVE_PAGE, 
4); 


REWRITE_RECORD(.SMQ_N); 
RETURN <STATUS._i; 


rs 


IF, SMOCSMOSV_ STOPPED OR .SMOQCSMQ$V_PAUSED) 
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Wwww 
, a ee 


BEGIN 
1F NOT . ITEM_PRESENTCSJC$_CREATE_START] 


, a 


| 
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H 4347 & BEGIN 

3 5 4 ‘3 4 STATUS_2 = APPLY_SMQ_ OPTIONS(.SMQ); 

3 6 4349 & IF NOT .STATUS 2° THEN RETURN .STATUS_2; 

: 3337 4350 4 UPDATE_SQX_ENTRY(.SQE, .SMQ_N, .SMQ); 

3 8 4351 END; 

; 9 & 26 

; 3340 435 

; 3341 4354 ! If the queue has never been started and no SYSID has been specified, 

3 3 tg : 2? } default it to the current SYSID. 

3 tee 6357 IF CHSRCHAR(SMQCSMQ$T_SYSIDJ) EQL 0 

: 3308 1326 COPY _SYSID(THIS_SYSID, SMQCSMQ$T_SYSIDJ); 

: 3347 4360 

: 3348 4361 

: 3349 436 IF .SMQCSMQ$SL_ASSIGNED_QUEUE_LINK] NEQ 0 

; 3350 4363 3 OR .SMQCSMQ$V_GENERIC_GUEUEJ 

: 3351 4364 ; OR .SMOCSMQ$V_BATC 

; 3352 4365 OR .SMQCSMOQSL_STREAM_SCT] NEQ 0 

>; 3353 4366 3 THEN 

: 3354 4367 4 BEGIN 

; 3355 4368 4 SMQCSMQS$V_STOPPED] = SMQCSMQ$V_PAUSED] = FALSE; 

; 3356 4369 4 FIND PENDING JOBS(.SMQ_N, .SMQJ; 

3; 3357 4370 4 REWRTTE_RECORD(.SQX_N); 

; 3358 4371 4 REWRITE RECORD(.SMQ_N); 

; $325 t3§ 4 RETURN SS$_NORMAL; 

; 3360 437 ; END; 

; 3361 4374 

H $208 4375 3 

; 336 4376 3 SMOQCSMOS$V_LOWERCASE] = FALSE; 

3; 3364 4377 3 SMQCSMQ$V_REMOTE] = FALSE; 

; 3365 4378 3 SMOCSMQS$V~SERVER] = FALSE: 

: 3366 4379 3 SMOQCSMOQSV~STALLED] = FALSE; 

: 3367 4380 3 SMOCSMOSV-TERMINAL] = FALSE; 

; 3368 4381 3 SMOLSMQ$V_UNAVAILABLE] = FALSE; 

: 3369 4382 4 F SYSID_NEQ(THIS_SYSID, SMQCSMQ$T_SYSIDJ) 

; 3370 4383 3 HEN 

3 3371 4384 3 STATUS_3 = CREATE_SRQ_RECORD(SROSK_START_QUEUE, .SMQ_N, .SMQ) 

; $278 4385 LSE 

:; 337 4386 4 BEGIN 

3; 3374 4387 4 STATUS_3 = CREATE_SRQ_RECORD(SROQSK_START_SYMBIONT, .SMQ_N, .SMQ); 

: he 4388 4 IF .STATUS_3 EQ. 6 

; 3376 4389 4 THEN 

; 3352 4390 5 BEGIN 

2 78 4391 5 STATUS_4 = START_SYMBIONT_STREAM(.SMQ_N, .SMQ); 

; 3379 $336 2 IF NOT .STATUS_4 

; 3380 439 TH 

3; 3381 4394 5 SCAN_INCOMPLETE_SERVICES( 

; 338 4395 5 TSRV_K_SYMBIONT, 

; 338 439 2 -SMQ_N, .SMQ 

> 3384 439 SROSR_START_SYMBIONT, 

; 3385 43598 5 -STATOS_4); 

; 3386 4399 4 END; 

:; 3387 4400 END; 

; 3388 4401 REWRITE_RECORD(.SQX_N); 

: 89 440 REWRITE _RECORD(.SMQ_N); 

: 3390 440 RETURN <STATUS_3; 
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55 00000000" EF 

52 10 as 

00000000G_ EF 01 

08 50 

50 00048020 = 8F 

53 10 a 

10 63 0 
OC 63 05 
08 63 06 
04 01 =AS 

08 63 OA 
50 00048138 8F 

03 63 02 
0088 

0115 C2 

F7 

17 OC Ae 

12 OD AS 01 
63 04 

52 

7E 08 Ac 

04 AC 

ESAS = CF 04 

50 

03 65 05 
50 01 

03 12. = AS 05 
50 Og 

0106 8 C2 F408 63 

O10A = C2 F40C +? 

0590 C5 

7E OS8E C5 


9E 00002 

9E 00009 

9E 00010 

DO 00017 

DD 0001B 

FB 00010 

E8 00024 

DO 00027 

04 0002E 

9E OO02F 1$: 
EO 00033 

EO 00037 

EO 00038 

E8 0003F 

E1 00043 

DO 00047 2$: 

04 Q004E 

fo QOO4F 3$: 
1 00053 4$: 

95 00056 5$: 
13 OO05A 

E8 0005C 

E1 00060 

8A 00065 

DD 00068 

Ob Ooose 

FB 00071 

04 00076 

D4 00077 6$: 
E1 00079 

88 00070 

4 00080 7$: 
8 00085 

Di 00088 8$: 
12 Q008F 

Bi 00091 

13 00098 

BD Babee 9$: 
C Q009E 


SJC_START_QUEUE : 
.QORD 


MOVZWL 


=1384 00:90:98 AX=11 Bliss-32 V4.0-742 


JOBCTLeS Reis SNDJBC.B32; 1 


’ 


ai. CHECK_E_ACCESS 
#294944, RO 


#4, ( 

R 

eo -(SP) 
#4,~SJC_ABORT_JOB 


et ITEM_PRESENT, 7$ 
Wi, FLA 

#5. ITEM PRESENT+18, 8$ 
# LAG 

THis_sysio, 262(R2) 
THIS_SYSID+4, 266(R2) 
10$ ~ 


VALUE _SEARCH_STRING#+2 
VALUE-SEARCH_STRING, (SP) 


Pees. 108 
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¥04=000 ea een haa M8: g ke | PANSTT Sk isge se MeO ee 9° 28) 
0569 CS DD OOOA PUSHL VALUE_RELATIVE_PAGE : 43 : 
7E $3 3 BR ie MOVZBL VALUE-ALIGNMENT_PAGES, -(SP) : - ; 
29 DD OOOAB PUSHL FLAGS : ; 
DD O00AD PUSHL R + 4325 : 
0c aC DD OOOAF PUSHL SMQ_N ; : 
07 DD 00082 PUSHL # : 4323, : 
67 08 FB 060B4 CALLS #8, CREATE_SRQ_RECORD : ; 
1F 11 00087 BRB 118 : | ; 
0590 5 po 00B9 10$:  PUSHL VALUE_SEARCH_STRING+2 + 4334 ; 
7E O58— ¢5 3C 000BD MOVZWL VALUE-SEARCH-STRING, -(SP) + 4333. : 
0569 C5 DD 000c2 PUSHL VALUE ~RELATI + 4332) : 
7E 2 AS OA 00¢6 MOVZBL VALUE-ALIGNMENT_PAGES, -(SP) : | ; 
50 DD OOOCA PUSHL AGS : ; 
52 DD O00CC PUSHL R2 + 4331 3 
OC AC DD OOOCE PUSHL SMQ_N : | ; 
000000006 EF 07 FB 00001 CALLS #7, RESUME_EXECUTION : | : 
54 50 D0 00008 11$:  MOVL RO. STATUS@1 : | : 
Oc AC bp 0008 PUSHL  SMQ_N + 4337 ; 
O0E2 31 OOODE BRW 22$ : | : 
07 63 09 £0 OO0E1 12%: BBS #9, (R3), 13$ + 4342 2 
03 63 02 £0 000E5 BBS We (R3), 13$ : | ; 
QODE 31 000E9 BRW 23$ : ; 
02 AS 95 OOOEC 13$:  TSTB ITEM_PRESENT+2 : 4345) ; 
1A 19 OOOEF BLSS  15$ : | j 
52 DD O00F1 PUSHL  R2 + 4348 ; 
000000006 EF 01 FB O00F3 CALLS #1, APPLY_SMQ_OPTIONS : | ; 
01 50 £8 OOOFA BLBS § STATUS_2,714$ 1 4349 : 
04 000FD RET : ; 
52 DD OOOFE 14$:  PUSHL R2 + 4350 : 
7E 08 AC 7D 00100 MOVQ. SQE, -(SP) : ; 
000000006 EF 03 FB 00104 CALLS #3, UPDATE _SQX_ENTRY : ; 
54 0106 C2 3 0010B 15$:  MOVAB 262(R2), R& : 4357 : 
64 95 00110 TSTB —-_ (R&) : ; 
Oc 12 00112 BNEQ 16$ : | ; 
64 F408 C5 DO 00114 MOVL THIS_SYSID, (R4) : 4359. ; 
010A C2 F40C ¢5 BO 00119 MOVW THIS SYSID+4, 266(R2) : | : 
2C A2 D5 00120 16$: STL  44(R2) > 4362 
OF 12 00123 BNEQ =«*17$ : | 
OA OD A2 02 €0 00125 BBS #2, 134R2), 17% : 4363. 
06 Oc A2 EB OO12A BLBS 1ecRe) 17$ + 4364 | 
OOFC C2 05 001 E TSTL  252(R25 > 4365. 
20 13 001 BEQL 18$ ; 
63 0206 8F AA 01 4 17$: BICW2 #516, (R3) : 4368 
52 DD 0139 PUSHL  R2 : 4369 | 
0c AC DD 00138 PUSHL SMQ_N F 
000000006 EF 02 FB 00156 CALLS #2, FIND_PENDING_JOBS ; 
04 AC DD 0014 PUSHL  SQX_ : 4370 
66 O1 FB 00148 CALLS #1, REWRITE_RECORD : 
Oc AC DD 00148 PUSHL  SMQ_N : 4371 
66 O1 FB OO14E CALLS #1, REWRITE_RECORD ; 
OO8F 31 151 BRW 24$ : 4372 
OE A 01 BA 00154 18%:  BICB2 #1, 14<R2) : 4376. 
b 10 8A 00158 BICB2 #16, (R3) > 4377 | 
OE A 10 BA 0198 B1CB ais 14(R2) : 4378 | 
é 80 8F BA 0015F BICB2 #128, (R3) : 4379. 
OF A 40 8F 8A 00163 BICB2 #64, °14(R2) : 4380. 
01 A 08 8A 00168 BICB2 #8, °1(R3) : 4381. 
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20$: PUSHL 4387 


CREATE_SRQ_RECORD 
STATUS~3 


000000006 EF CALLS #2, START_SYMBIONT_STREAM 
11 B STATUS_4, 7218 

PUSHL  STATUS~4 

PUSHL #12 


PUSHL R 
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» 
CALLS is, SCAN_INCOMPLETE_SERVICES 
21$:  PUSHL z 
CALLS #1, REWRITE_RECORD 


#1, REWRITE _RECORD 
MOVE = STATUS_3, RO 


23$:  PUSHL SQX_N 
CALLS #. REWRITE_RECORD 


CALLS #1, REWRITE_RECORD 
ITEM_PRESENT+2 


st #295000, RO 
248: MOVL #1, RO 


00000000G_ EF 
04 
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; Routine Size: 487 bytes, Routine Base: CODE + 155 


if NOT -BBLOCKCMBXCACMSQ_PRVMSK], PRVS$V_OPER] 
RETURN JBC$_NOOPER; 


: Ensure that the requestor has SYSNAM privilege. 
iF NOT .BBLOCKCMBXCACMSQ_PRVMSK], PRVSV_SYSNAM) 
RETURN JBC$_NOSYSNAM; 


: Ensure that the queue file is not already open. 

4 QUEUE _FABCFABSU_IFIJ NEQ 0 

RETURN JBC$_JOBQUEENA; 

CHSFILL(O, DIAG_STORAGE_END - DIAG_STORAGE_BASE, DIAG_STORAGE_BASE); 


G 3 
SNDJB SSNDACC, SSNDSMB, and S$SNDJBC services 19=309= 1386 00:97:33 AX-11 Bliss-32 V4.0-742 
v04-0 14-Sep-1984 12:57:1 JOBCTL.SRCISNDJBC.B32;1 
; 340 4414 1 ROUTINE SJC_START_QUEUE_MANAGER= 
; 340 4415 1 
: 3404 e218 1 !4¢ 
; 3405 4417 1! 
; 3406 4418 1 ! FUNCTIONAL DESCRIPTION: 
; met Prk : This routine processes the SJC$_START_QUEUE_MANAGER request. 
; 3409 4421 1 ! INPUT PARAMETERS: 
; 3410 44 é 1! ‘NONE 
3; 3411 44 1! 
3 tig 44246 1 ! IMPLICIT INPUTS: 
3 et a 2 ; MBX - Pointer to buffered mailbox message. 
3; 3415 4427 1 ! OUTPUT PARAMETERS: 
: 3416 4428 1! NONE 
3 3417 reg 1! 
; 3418 4430 1 ! IMPLICIT OUTPUTS: 
3; 3419 4431 1! NONE 
: 3420 rr 1! 
3; 3421 443 1 ! ROUTINE VALUE: 
3; 3422 4434 1! Completion status to be returned to requestor. 
: 3423 4435 1! 
; seS¢ 4436 1 |! SIDE EFFECTS: 
3; 3425 4437 1! NONE 
; 3426 4438 1! 
; 3427 4439 1 !<- 
: 3428 4440 1 
: 3429 4441 2 BEGIN 
: 34350 444 2 LOCAL i oe : 
3: 3431 4443 2 INIT_LKSB: VECTORE4,WORDJ, ! Initialization lock status block 
; 3432 4444 2 STATOS_1, ! Status return 
; 3433 4445 2 STATUS_2; ! Status return 
> 3434 4446 2 
; 3435 4447 2 
: 3436 4448 2 ! Ensure that the requestor has OPER privilege. 
3: 3437 4449 2! 
; 3438 4450 2 
3 eT 
3 2 
3 2 
3 2 
s 2 
3 : T 
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b 14- ety fi 90°95 33 $ JOBCTL.SRCJSNDJBC.832;1 . (29) 
is 447) ! Take out the job controller initialization lock, which interlocks the ; 
; rei! : Queue file open and reconstruction processing. ; 
b4 P 4474 STATUS 1 = SENQW( $ 
$ P 4475 EFR=JBC$K_SYNC_EFN : 
; P 447 LKMODE= LCRSK EXM ope, F 
ie P 447 LKSB=IN : 
; 4478 RES NSDESCRIPTOR(* JBCSINITIALIZE')); F 
; 4479 2 IF .STATUS_1 THEN STATUS _1 = . INIT LKSBCOS; : 
: ret IF NOT ISTRTUS” 1 THEN RETURN .STATOS_1; : 
3 448 $ 
3 <ehi Get the system ID. : 
4 re fi COPY_SYSID(SCS$GB_NODENAME, THIS_SYSID); : 
; 4487 : 
3 tebe } Do the actual initialization. : 
3 4490 2 STATUS_2 = INITIALIZE_QUEVE_FILE(); : 
; 4491 2 3 
: 4492 2 3 
3 4495 2 ! Release the initialization lock. : 
. 4494 2! : 
3 4495 2 $DEQ(LKID=.(INIT_LKSB[2])); $ 
: 4496 2 $ 
: 4497 2 3 
: 4698 2 ! Return status. ‘ 
; 4499 2! 3 
; 4500 2 .STATUS_2 3 
: 4501 1 END; 3 
45 SA 49 4C 41 49 54 49 4E 49 26 43 42 GA O17CC P.AAB: ASCII \JBCSINITIALIZE\ s : 
017DA -BLKB 2 3 
OOOOO00E O17DC P.AAA: .LONG 14 : 3 
00000000" 017E0 ADDRESS P.AAB r 3 
-EXTRN SYSSENQW, SYSSDEQ $ 
007C 00000 SJC_START QUEUE sg ib 3 
.@ORD Save R2,R3,R4,R5,R6 ; 4414 ; 
56 00000000' Ff 0000 MOV : ; 
5E 8 C2 0000 SUBL a ‘ "SP : 3 
50 66 D0 0000C MOVL X, : 4450 3 
06 AO 02 £0 O000F BBS m3 6(RO), 1$ ; 3 
50 00042894 8F 00 00014 MOVL #272532, RO > 4452 | : 
04 00018 RET 3 3 
04 AO 02 €0 Boat 1$: BBS as 4(RO), 3 4457. é 
50 00042814 &8F DO 00021 MOVL 72404, ko” > 4459 : 
04 00028 RET 3 3 
00D6 C6 BS 00029 2$: TSTwW QUEUE _F AB+2 > 4464 3 
ee 13 0002D BEQL 3 3 
50 00048128 F 4 8 F nove #295208, RO ; 4466 r 
6E 00 ry 00039 3$: MOVCS #0, (SP), #0, #512, DIAG_STORAGE_BASE > 4468 3 
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; Routine Size: 


Routine Size: 13 bytes, Routine Base: CODE + 1873 
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v04-000 14-Se 7138 939533 JOBCTL. RC ISNDJBC.B32; 1 ° (30) 
: 3491 45 3 1 ROUTINE CLEAR_ACCOUNTING_FLAGS= : 
: 349 $e 1 : 
: 349 4504 1 !++4 : 
: 3494 4505 1! : 
3; 3495 $208 1 ! FUNCTIONAL DESCRIPTION: . 
; 3496 4507 1! his routine clears bits in the accounting control flag longword. It ; 
: 3497 4508 1! executes in kernel mode. ‘ 
; 3498 4509 1! : 
: 3499 4510 1 ! INPUT PARAMETERS: : 
; 2p oei] : AP contains a mask of bits to be cleared in the accounting flags. : 
; 206 281 1 ! IMPLICIT INPUTS: : 
; 350 4514 1! NONE ; 
3 3504 4515 1! : 
3; 3505 4516 1 ! OUTPUT PARAMETERS: . 
; 3208 4517 1! NONE | : 
; 3507 4518 1! : 
; 3508 4519 1 ! IMPLICIT OUTPUTS: : 
; 3509 4520 1! EXESGL_ACMFLAGS updated. : 
; 3510 4521 1! : 
; 3511 +256 1 ! ROUTINE VALUE: : 
; s2\¢ 4523 1! SS$_NORMAL ; 
; 351 4524 1! : 
3; 3514 +282 1 ! SIDE EFFECTS: : 
; 3515 4526 1! NONE : 
; 3516 4527 1! : 
; 3517 4528 1 !-- . 
; 3518 4529 1 : 
: 3519 4530 2 BEGIN : 
; 3520 4531 BUILTIN ; 
; 3521 $236 AP; : 
; 3522 453 : 
; 3523 4534 2 : 
3 $25¢ eee2 § ; Clear the requested bits in EXESGL_ACMFLAGS. ; 
; 3526 4537 2 EXESGL_ACMFLAGS = .EXESGL_ACMFLAGS AND NOT .AP; | . 
; 3527 4538 2 SS$_NORMAL 3 
; 3528 4539 1 END; ‘ 
| e 
| : 
0000 00000 CLEAR_ACCOUNTING FLAGS: | ; 
W ave persone 3: 4502. : 
000000006 00 5C CA 00002 BICL2 AP, EXESGL_ACMFLAGS 7 4537) 3 
50 01 pO 00009 MOVL #1, RO 7 4539 | : 
04 0000C RET ; : 


Kk 3 


ND JBC SSNDACC, SSNDSMB, and S$SNDJBC services 16-Sep -1984 27:5 AX-11 Briss-32 V4.0-742 Page 115. 

04-000 14-Sep 1984 ae JOBCTL.SRCIJSNDJBC.B32;1 . (31) 

; 3530 4540 1 ROUTINE SJC_STOP_ACCOUNTING= ‘ 
3 2 1 4541 1 : 
: ; $286 1 !4¢ : 
3 30 4545 1! : 
3 39 4544 1 ! FUNCTIONAL DESCRIPTION: : 
; 3535 4545 1! his routine processes the SJC$_STOP_ACCOUNTING (ACCS$K_DISAACC and ; 
3 35 ces8 1! ACCSK_DISASEL) request. : 
; 3537 454 7 | ; 
; 3538 4548 1 ! INPUT PARAMETERS: ‘ 
4 $275 4549 1! NONE : 
; 3540 4550 1! 

382) 188) ii a Point buffered mailb | 

3 ! - Pointer to buffered mailbox message. 

3808 4353} i : 

3 3544 4554 1 ! OUTPUT PARAMETERS: 

3 $ee7 4555 1! NONE 

3; 3546 4556 1! 

; 3547 4557 1 ! IMPLICIT OUTPUTS: 

; 3548 4558 1! NONE 

; 3549 4559 1! 

; 3550 4560 1! —— VALUE: 

; 3551 4561 1! Completion status to be returned to requestor. 

3 $226 $286 1! 

3s 3593 456 1 ! SIDE EFFECTS: 

; s228 4564 1! NONE 

; 355 4565 1! 

; 3556 4566 1 !-- 

3; 3557 4567 1 

; 3558 4568 2 BEGIN 

; 3559 4569 2 
3 se0e £209 : Ensure that the requestor has OPER privilege. 

; $268 1276 2 IF NOT .BBLOCKCMBXCACM$Q_PRVMSK], PRVS$V_OPER] 

; 3563 4573 2 TH 

; 3564 4574 2 RETURN JBC$_NOOPER; 

: 3565 4575 2 

> 3566 4576 2 | 

: F544 oete § if . ITEM_PRESENTCSJC$_ACCOUNTING_TYPES] 

5 44 rete 3 g SCMKRNL (ROUTIN=CLEAR_ACCOUNTING_FLAGS, ARGLST=.VALUE_ACCOUNTING_TYPES) 

; 3571 4581 é CLOSE_ACCOUNTING_FILE(); 

3 3258 eens 

3 $25 458 § 

3; 3574 4584 SS$_NORMAL 

3; 3575 4585 1 END; 


0004 00000 SJC_STOP eet 


pove ; 4540. 
52 00000000" EF 9 0000 MOVAB ; 
5 6 000 MOVL : 4572. 
08 06 AO 0 t 000¢ ho. : | 
50 00042894 8F D0 00011 BOUL mB 32 &o'® > 4574 
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SNDJ SSNDACC, SSNDSMB, and S$SNDJBC services -Sep-1984 AX-11 Bliss-32 V4.0-74 e 16. 
504-860 ~ gep- 138 99: $537 ‘OBCTLe SR RCISNDUBC. B32; "rs i8 


—_—— 


04 0001 RET : 
10 oBcO C2 02 E1 iets 1$: BEC #2, ITEM_PRESENT, 2$ + 4577) 
OBE6 C2 DD O001F PUSHL VALUE_ACCOUNTING._TYPES 3 4579 
CD AF 9F 00023 PUSHAB CLEAR- ACCOUNT ING FLAGS s | 
000000006 00 02 FB 00 : CALLS #2, SYS$C ; | 
000000006 EF 00 FB 0002F 28 CALLS #0, CLOSE_ACCOUNTING_FILE + 4581. 
0 01 DO 00036 3$ MOVL #1. RO : 4585 
04 00039 RET : 


; Routine Size: 58 bytes, Routine Base: CODE + 1880 
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04 14-Sep-1984 12:57:15 JOBCTL. BR CJSNDJBC.832;1 (32) 
s Sort 4586 1 ROUTINE SJC_STOP_QUEUE(SQX_N,SQE,SMQ_N,SMQ)= ; 
; 3578 4387 1 . a ; 
; 3579 4588 1 !++ ; 
; 3580 4589 1! ‘ 
; 3581 4590 1 | FUNCTIONAL DESCRIPTION: : 
; $256 $23) : This routine processes the SJC$_STOP_QUEUVE (SMRSK_STOP) request. ; 
; 3584 1398 1 | INPUT PARAMETERS: ; 
; 3585 4594 1! SQX_N - Record number of SQX. ‘ 
>; 3586 4595 1: S - Pointer to SQXx entry. . 
3 $207 4596 1! SMQ_N - Record number of SMQ. ; 
; 3588 4597 1 | SMQ~ - Pointer to SMQ. : 
; 3589 4596 1 ; 
; 3590 4599 1°! IMPLICIT INPUTS: : 
; 3591 4600 1! MBX - Pointer to buffered mailbox message. ‘ 
; 3296 601 1! ; 
3; 359 4602 1 i OUTPUT PARAMETERS: ‘ 
: 3594 4603 1! NONE ; 
; 3595 4604 1! : 
: 3596 4605 1! IMPLICIT OUTPUTS: ‘ 
: 3597 4606 1 NONE ‘ 
; 3598 4607 1! : 
; 3599 4608 1 i ROUTINE VALUE: : 
; sent ree ! Completion status to be returned to requestor. ; 
; 3602 4611 1 ! SIDE yt eee : 
; 3603 461 1 i ONE ; 
: 3604 4613 1! : 
; 3605 4614 1 i- : 
: 3606 4615 1 3 
3; 3607 4616 2 BEGIN : 
; 3608 4617 2 MAP F 
: 3609 4618 2 SQE: REF BBLOCK, ! Pointer to SQX entry ; 
; 3610 4619 2 : REF BBLOCK; i Pointer to SMQ : 
>; 3611 4620 2 LOCAL ; 
3; 3612 4621 2 STATUS; ! Status return ; 
: 3613 4622 2 : 
3; 3614 4623 § . 
; Sele rey: § Ensure that the requestor has E access to the queue. ; 
: 3617 4626 3 IF NOT CHECK_E_ACCESS(.SMQ) | ; 
; 3618 4627 vs : 
: 3619 4626 2 RETURN JBC$_NOPRIV; 3 
; $050 4629 3 
> 3621 4630 : 
5 $056 $63! } If a previous service is in progress, refuse this request. : 
: 3053 463 : IF .SMQCSMQ$V_PAUSING] ; 
: 3625 4634 OR MQ SMOSV_RESETTING) : 
; 3626 4635 2 OR .SMOCSMQ$V~RESUMING] ; 
; 3627 4636 OR .SMQCSMQ$V oat iNeY : 
: 3628 4637 OR .SMQCSMQ$V~STOPPING ; 
3 3068 4638 HEN 3 
; 30 0 4639 RETURN JBC$_INCOMPLETE; ‘ 
: 3631 4640 3 
5 $038 4641 , : 3 
; 363 4642 ! If the queue is not already stopped, mark it stopped. 3 


| SNDJBC 


eee 


v04-000 
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SSNDACC, SSNDSMB, and SSNDJBC services 16-Sep-1 oB¢ 00: 92:3 AX-11 ta te 
14-Sep-19 :57:1 JOBCTL.SRC SNOUBC: 8 

4643 } 

4644 if TESTBITCS(SMQCSMQ$V _STOPPED)) 

4645 THEN 

4646 BEGIN 

4647 

rh et If there are starting jobs in the queue, remove these. 

ret REQUEVE_ STARTING_JOBS(.SMQ_N, .SMQ); 

1026 3 

$827 3 ! If there is a symbiont, and there are no executing jobs, stop it. 

4655 3 IF .SMQCSMQ$L_STREAM SCT] NEQ 0 

4656 3 AND .SMQCSMQ$6_CURRENT_JOB_COUNT) EQL 0 

4657 3 THEN 

4658 4 BEGIN 

4659 4 

4660 4 ! If this is a remote queue, enter a remote request. Otherwise, issue 

reed : the stop. 

466 4 SMOCSMQSV STOPPED] = FALSE; 

4664 5 IF SYSID_REQ(THIS_SYSID, SMOCSMQ$ST _5YS1DJ) 

4665 4 THEN 

4666 5 BEGIN 

4667 5 STATUS = ay SRQ_RECORD(SROQS$K _STOP_QUEUE, .SMQ_N, “pints 

4668 5 IF .STATUS NEQ 0 THEN FIND_PENDING_JOBS(.SMQ_N, .SMQ) 

4669 5 REWRITE “RECORD SMQ_N); 

4670 5 RETURN JSTATUS; 

4671 5 END 

4672 4 ELSE 

4673 4 STOP_SYMBIONT_STREAM(.SMQ_N, .SMQ); 

4674 3 D; 

4675 2 END; 

4676 2 

4677 2 

4678 2 REWRITE RECORD(.SMQ_N); 

4679 2 SS$_NORMAL 

4680 1 END; 


003C 00000 SJC_STOP_QUEUE: 
WORD 


P Save R2,R3,R4,R5 
55 000000006 _ EF 96 9000 MOVAB REWRITE RECORD, R5 
52 10 AC DdO 0000 MOVL SMQ, R 
52 DD 0000D PUSHL 
00000000G_ EF 01 FB O000F CALLS #1, CHECK_E_ACCESS 
08 50 £8 0016 BLBS oR 
50 00048020 8F 00 0001 MOVL # oni, RO 
04 00020 RET 

53 10 a2 9E 00021 1$: MOVAB 13 "taty 

10 63 03 £0 00025 BBS : g 

0c 63 05 £0 00029 BBS i : RS) $ 

08 63 06 EO 00020 BBS (R 2$ 
04 01 A3 EB 00031 BLBS Teas) ' 


4.0=742 


32;1 
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; Routine Size: 181 bytes, Routine Base: CODE + 18BA 


Le BC SSNDACC, SSNDSMB, and $SNDJBC services 16 p-$e0°12 4 7:5 AX-11 Bliss-32 V4.0-742 Page 119 
v04-000 14-Sep-1984 4 93 $537 JOBCTL.SRCIJSNDJBC.B32;1 . 43) 

08 3 A €1 00035 BBC (R3) + 4637) : 

$5 ooosei38 BF bd i 28: OVL #9$256 ko” ; 4639. ; 

64 63 09 E2 6 41 3$: BBSS #9, (R3), 7$ + 6644) ; 

2 DD 0043 PUSHL + 4650 : 

54 0c AC DO 04 MOVL  SMQ_N, R4 : : 

54 DD 00048 PUSHL : ; 

000000006 EF 03 FB 0004D CALLS We REQUEUE_STARTING_JOBS ; : 

OOF C ¢ DS 00054 TSTL 3(R2) + 4655 ; 

1 13 00058 BEQL ; : 

0115 C2 95 0005 TSTB 77(R2) ; 4656, ; 

4B 12 0056 BNEQ t : : 

01 a3 02 BA 0006 BICB2 #2, 1(R3) + 4663) ; 

0106 C2 00000000' EF D1 90064 CMPL  THIS_SYSID, 262(R2) + 4664. ; 

OB 12 0006D BNEG : ; 

010A C2 00000000' EF B81 0006F CMPW —-s THIS_SYSID+*4, 266(R2) : | ; 

6 13 00078 BEQL © 6$ : | ; 

2 DD OO007A 4$ PUSHL  R2 + 4667 | : 

54 dd 0007¢ PUSHL 4 ; 

05 DD 0007E PUSHL #5 ; ; 

000000006 EF 03 FB 00080 CALLS #3, CREATE_SRQ_RECORD ; : 

53 50 pO 00087 MOVL RO. STATUS : | ; 

0B 13 OOOBA BEQL 5$ > 4668 | 

52 DD 0008C PUSHL R2 : : 

54 DD OO008E PUSHL RG : ; 

000000006 EF 02 FB 00090 CALLS #2, FIND_PENDING_JOBS : ; 

54 DD 00097 5$ PUSHL 4 + 4669 ; 

65 01 FB 00099 CALLS #1, REWRITE_RECORD : | ; 

50 53 pO 0009C MOVL STATUS, RO + 4670 ; 

04 0009F RET é : 

52 DD OOOAO 6$: PUSHL R2 : 4673) : 

54 DD 000A2 PUSHL R4 ; ; 

00000000G_ EF 02 FB OOOA4 CALLS #2, STOP_SYMBIONT_STREAM § : 

OC AC DD OO0AB 7$: PUSHL _N ; 4678 | ; 

65 01 FB OOOAE CALLS #1, REWRITE_RECORD 3 | : 

50 01 DO 00081 MOVL #1. RO : 4680 | ; 

04 00084 RET | : 
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ROUTINE SJC_STOP_QUEUE _MANAGER= 


lee 


i 
i FUNCTIONAL DESCRIPTION: 
i INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
MBX 

i QUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

i ROUTINE VALUE : 


SIDE a 


RETURN JBC$_NOOPER; 


RETURN JAC$_NOSYSNAM; 


- QUEUE _f ABCFABSW_IFIJ NEQ 0 
BEGIN 
Scan the queue index. 


BEGIN 

LOCAL 
SQx: REF BBLOCK, 
SOX_N 
SQX"NS, 


REF BBLOCK, 
REF BBLOCK; 


0Q: :@7: 33 AX=-11 Bliss-32 V4.0-742 
12:57:1 JOBCTL.SRCJSNDJBC.B32;1 


This routine processes the SJC$_STOP_QUEUE_MANAGER request. 


- Pointer to buffered mailbox message. 


Completion status to be returned to requestor. 


Pointer to SQxX 

Record number of SQX 

Record number of successor of SQX 
Pointer to SQX entr 

Record number of SM 


' Pointer to SMQ 


: Ensure that the reyuestor has OPER privilege. 
if NOT .BBLOCKCMBXLACM$SQ_PRVMSK], PRVS$V_OPER] 


Ensure that the requestor has SYSNAM privilege. 
if NOT .BBLOCKCMBXCACMSQ_PRVMSK], PRVSV_SYSNAM] 
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SND JBC SSNDACC, SSNDSMB, and SSNDJBC services 16-Sep-1984 00:27:5 AX-11 Bliss=-32 V4.0-742 
04-000 eae Pt te rT ht Pe ae 

S$QxX = READ a gh Nett RECNO); 

SQX_N = .SOXCSQHSL QUEUE pete *LISTI; 

RELEASE_RECORD(SQH ute ECRO) 

WHILE .SQX_N NEQ 0 bon 

4 BEGIN 


SN NNN SNS 
, at ar et et et ot bt et er 
SANS OS 

5 et et ee ee ee 
we —-OOMm 


2 4 

; 3740 4748 
: 4 4749 
; 8 4750 
3; 374 4751 
3; 3744 $236 
3: 3745 475 

3; 5746 4754 
3: 3747 4755 
3; 3748 4756 
3: 3749 4757 
: Te! 4758 
3; 3751 4759 
3 $326 4760 
; 375 4761 
: 3754 $766 
3 $322 476 

; 3756 4764 
s S757 4765 
3; 3758 4766 
; 3759 4767 
; 3760 4768 
3; 3761 4769 
3 Hae 4770 
; 376 4771 
: 3764 4772 
; 3765 4773 
3; 3766 4774 
3; 3767 4775 
; 3768 4776 
; 3769 4777 
3; 3770 4778 
: 3771 4779 
: 3772 4780 
: 3773 4781 
3; 3774 44 
; 3775 478 

; 3776 4784 
3; 3777 4785 
: 3778 4786 
: 3779 4787 
; 3780 4788 
; 3781 4789 
; 378 4790 
; 378 4791 
; 3784 479 

; 3785 479 

; 3786 4794 


rc OCF - 


tt ae 


—DO0CO 000 OO 09000000 09 09 00 00 09 09 09 00 09 09 09 09 0D 09 09 09 ICD NINO AOA UII BB PEPE EEE 


Read the queve index record. 
SQX = READ_RECORD(.SQX_N); 


Scan the queve index record. 


Soc = SOXCSYMST -pATAI 
INCR SQE.N FROM"O TO SOxSk LENTRIES=1 DO 


B 
4 aac itatimmaraniana te tate EQL 0 


EXITLOOP 
ELSE 
IF .SQECSQX$V_EXECUTOR] 
THEN 
BEGIN 
SMQ = READ_RECORD(SMQ_N = .SQECSQX$L_QUEVE_LINK]); 
IF SYSID_EGL(THIS_SYSTD, SMQCSMQ$T_SYSIDJ)~ 
BEGIN 
LOCAL 
SJH_N, ! Record number of SJH 
SJH_NS, i Record number of successor 
SJH: REF BBLOCK; i Pointer to SJH 


! Take an extra lock on the queue header and execute 
a STOP/NEXT. 


READ_RECORD(.SMQ_N); 
SJC_STOP_QUEUE(.SQX_N 


.SQE, .SMQ_N, .SMQ); 
SMOTSMQSV_STOPPED] = TRUE; 


xecute a STOP/REQUEUE on each restartable job, and a 
T P/ ABORT on each nonrestartable job. 


ja neaea D750 CURRENT_LISTJ; 


J 
ue 
= READ_RECORD(.SJH 
NS” ~SJHCSYMSL_LI 

NOT .SJHCSJH$V_ABOR 
NOT .SJHCSJH$9_ABO 
BE 
IF 
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SND JBC SSNDACC, SSNDSMB, and $SNDJBC services 1b-se -1984 00:27:5 AX-11 Bliss-32 V4.0-742 
704-000 12-3 08- 1 3be 00 gb te JOBCTL.SRCISNDJBC.B32;1 
: 3787 4795 11 SJHCSJH$V_REQUEUEJ = TRUE; 
: 37 4796 11 SJHESJH$V_REQUEUE_HOLD] = FALSE; 
: 3789 4797 11 SJHCSJH$SB_-REQUEUE-PRIORITY] = .SJHCSJH$B_PRIORITY); 
; i 4738 1 Jul SJH$SL-REQUEUE-QUEUE_LINK] = 0; 
; 8 4800 19 ABORT. EXECUTOR_JOB(.SMQ_N, .SMQ, .SJH_N, .SJH); 
: 3794 4808 9 REWRITE_RECORD(.SJH_N); 
: 3795 4895 9 SJH_N =". SJH_NS; 
: 3796 4804 8 END; 
: 3797 4805 8 REWRITE_RECORD(.SMQ_N); 
: 3798 4806 8 END 
: 3799 4807 LSE 
; 3800 4808 7 RELEASE_RECORD(.SMQ_N); 
; 3801 4809 6 D; 
; 380 4810 5 END; 
; 380 4811 5§ 
3 3804 481¢ 5 
; 3805 4813 § SQE = .SQE + SQX$S_SQXx; 
: 3806 4814 4 END; 
3 3807 4815 4 
3; 3808 4816 4 
; 3809 4817 4 ' Advance to the next index block. 
; 3810 4818 4 i 
; 3811 4819 4 SQX_NS = .SQXCSYMSL LINK): 
3; 3812 4820 4 RELEASE. -RECORD( SQX=N 
: 3813 4821 4 SQX_N =~.SOX_NS; 
3 3814 4822 3 END? 
; 3815 4823 3 
: 3816 4824 3 
; 3817 4825 3 QUEUE_REFERENCE_COUNT = .QUEUE_REFERENCE_COUNT - 1; 
; 3818 4826 2 END; 
: 3819 4827 2 
: 3820 4828 é 
3 3821 4829 SS$_NORMAL 
; 3822 4830 1 END; 
OFFC 00000 SJC_STOP_ QUEUE MANAGER: 
ave R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 
50 00000000' FE DO 90002 hove. naX R 
08 06 AO 2 £0 0000 BBS 6(RO), 1$ 
50 00042894 8F DO 90008 MOVL 1592830, RO 
04 0001 RET 
08 04 Ad 02 £0 90016 1$ BBS #2, 4(RO), 2% 
50 00042814 8F DO 0001B MOVL #272404, RO 
04 000 ¢ RET 
00000000' FF B5 8 2$ TSTW QUEUE _FAB+2 
3 12 00029 BNEQ 3$ 
0107 31 00028 BRW 18$ 
01 od 000 F 3$ PUSHL #1 
000000006 gf gi FB 00 CALLS #1, READ_RECORD 
A 0 pO 00037 MOVL R 
57 64 AA 00 0003A MOVL  100(SQX), SQX_N 
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F 4 
SNDJBC SSNDACC, SSNDSMB, and $SNDJBC services 16-Sep-1984 :5 AX-11 “? Page 123 
04-000 ersee=h Bae M8:ge Fs | PANETT Ok isa se Mt Oe 9° 333 
1 DD 0003 PUSHL #1 : 4740. ; 
000000006 EF o F 096 CALLS #1, RELEASE_RECORD : 
7 05 00047 4$ TSTL SKN + 4741 ; 
03 12 00049 BNEQ $ : ; 
°F BBE se, Bll Heh fam |} 
000000006 EF gi 8 0050 CALLS #1, READ_RECORD : | ; 
A 0 pO 0005 MOVL RO SOX : ; 
54 OC AA 9E 0005A MOVAB 12(R10), SQE + 4751 : 
59 D4 O005E CLRL SQE_N t 4752 F 
64 95 00060 6$ TSTB = (SQE) + 4754 ; 
03 12 9006¢ BNEQ 7$ : ; 
00B6 31 00064 BRW 16$ : | F 
03 20 AG 01 £0 00067 7$: BBS #1, 32(SQE), 8$ : 4759. ; 
O0AS5 31 0006C BRW 15$ : | ; 
56 24 Ad DO OO06F 8S: MOVL  36(SQE), SMQ_N t 4762) : 
56 DD 00073 PUSHL  SMQ_ : | ; 
000000006 EF 01 FB 00075 CALLS #1, READ_RECORD : | : 
53 50 pO 0007¢ MOVL RO. S : | ; 
0106 C3 00000000' EF D1 0007F CMPL _ THIS_SYSID, 262(SMQ) + 4763) ; 
09 12 00088 BNEQ 9 : | ; 
010A ¢3 00000000' EF B81 0008A CMPW = THIS_SYSID+4, 266(SMQ) : | ; 
76 12 00093 9$ BNEQ 14$ : | ; 
56 DD 00098 PUSHL  SMQ_N + 4775. : 
000000006 EF 01 FB 0009 CALLS #1, READ_RECORD : ; 
53 DD 0009E PUSHL : 4776) : 
0050 8F BB OOOA0 PUSHR #*M<R4,R6> : ; 
57 DD OO0A4 PUSHL  S$QX_N : | ; 
FEAO CF 04 FB 000A6 CALLS #4, ~SJC_STOP_QUEUE : | ; 
11. AB 02 88 OOOAB BISB2 #2. Sma) : 4777) : 
55 48 «OA 00 OOOAF MOVL 5°" SJH_N > 4783) ; 
4B 13 .000B3 10$: ‘BEAL > 4784. ; 
55 pd 00085 PUSHL JH > 4786 | ; 
000000006 _ EF 01 FB 00087 CALLS #1, “READ _RECORD ; | ; 
52 50 DO 000BE MOVL RO. SJH : : 
58 62 pO 000C1 MOVL (SJH), SJH : 4787 ; 
29 10 A2 01 £0 000C4 BS #1, 16(SJHT, 12% : 4788 ; 
25 10 A2 €8 000C9 BLBS 16(SJH), 12$ : 4789 : 
13 OE A2 01 €E1 000CD BC #1, 14(SJH), 118 : 4792 : 
11 A2 01 88 00002 BISB2 #i. 17(SJH) : 4795 | ; 
<.: a 02 8A 00006 BICB2 #2, 17(SJH) > 4796 | ; 
O17E C2 017D C2 90 OOODA MOVB 381(SJH), 382(SJH) > 4797 | : 
0138 C2 D4 O00E1 CLRL 312 (SJH) : 4798 | ; 
38 DD OO0ES 11$ PUSHL $JH > 4800 | : 
¢ BB OO0E7 PUSHR #*M<R3,R5> 5 3 
6 DD 000E9 PUSHL SMQ_N ; ; 
000000006 EF 04 FB OOOEB CALLS #4, ABORT_EXECUTOR_JOB : | ; 
55 DD OO00F2 12$ PUSHL $JH_N : 4802 | : 
000000006 Ef 01 FB O00F4 CALLS #1," REWRITE -RECORD : : 
5 58 DO OO0FB MOVL § SJH_NS, > 4803. ; 
B3 11 OOOFE BRB 10$ > 4784. : 
56 DD 00100 13$ PUSHL SMQ_N > 4805 | : 
000000006 _ EF 1 FB 0108 CALLS #1, REWRITE_RECORD ; | : 
9 11 0010 BRB 15$ > 4763 ; 
6 DD 0010B 148 PUSHL  SMQ_N > 4808 | : 
000000006 Ef 01 FB 00100 CALLS #1, RELEASE_RECORD ; : 
4 28 CO 00114 15$ ADDL2 #46, SOE > 4813 ; 


evi SSNDACC, SSNDSMB, and $SNDJBC services 
FF43 59 01 0B 
58 94 
000000006 gf 01 
7 58 
FF18 
00000000" EF 
50 01 


Routine Base: CODE + 196F 


; Routine Size: 313 bytes, 
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#11, #1, SQE_N, 6$ 
(SOX), SQx_NS 


#1, “RELEASE_RECORD 
SQK.NS, SOXIN 

QUEUE _REFERENCE_COUNT 
#i, RO 


AX-11 Bliss-32 V4.0-742 
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sno J8t SSNDACC, SSNDSMB, and S$SNDJBC services 


1 
1 


4 
-Sep-1984 00:27:5 AX-11 Bliss-32 V4.0-742 
=Sep-19 4 1339533 JOBCTL. RCISNDJBC.B32;1 


his routine processes the SJCS_SYNCHRONIZE_JOB (SMRSK_SYNCJOB) request. 


Pointer to SQX entry 
Pointer to SMQ 


Record number of SJH 
Pointer to SJH 
Status return 
Status return 


; ¢ : 1 ! ROUTINE SJC_SYNCHRONIZE_JOB(SQX_N,SQE,SMQ_N,SMQ)= 

: $ 4 : 1 tee 

3 4834 1! 

; 3828 4835 1 ! FUNCTIONAL DESCRIPTION: 

; 3829 4 § 1! T 

; 3830 48 1! 

; oa) 4838 1 ! INPUT PARAMETERS: 

; 38 ¢ 4839 1! SQX_N - Record number of SQX. 

3 th 4840 1! SQE - Pointer to SQX entry. 

; 38 4841 1! SMQ_N - Record number of SMQ. 

; 3835 4842 1! SMQ - Pointer to SMQ. 

; 38 4845 1! 

; 3837 4844 1 ! IMPLICIT INPUTS: 

>; 3838 4845 1! MBX - Pointer to buffered mailbox message. 
; + te 4846 1! 

; 3840 4847 1 ! OUTPUT PARAMETERS: 

; 3841 4848 1! NONE 

; sae8 4849 1! 

; 384 4850 1 ! IMPLICIT OUTPUTS: 

; 3844 4851 1! NONE 

>; 3845 ret 1! 

: 3846 485 1 ! ROUTINE VALUE: 

; 3847 4854 1! Completion status to be returned to requestor. 
; 3848 4855 1! 

; 3849 4856 1 ! SIDE EFFECTS: 

; 3850 4857 1! NONE 

; 3851 4858 1! 

3 see8 4859 1 !-- 

; 385 4860 1 

3; 3854 4861 § BEGIN 

; 3855 486 P 

>; 3856 48635 2 SQE: REF BBLOCK, ' 

; 3857 4864 2 SMQ: REF BBLOCK; : 

; 3858 4865 2 LOCAL 

; 3859 4866 2 SJH_N, ‘ 

; 3860 4867 2 SJH: REF BBLOCK, : 

; 3861 4868 2 STATUS_1, : 

3 3862 4869 2 STATUS_2; i 

; 386 4870 2 

3 3864 4871 2 

; HH re 44 2 Ensure that one of the job ID or the job name is specified. 
; yt tere IF NOT .ITEM_PRESENTCSJCS_ENTRY_NUMBER] AND NOT .ITEM_PRESENTCSJC$_JOB_NAME] 
; 3869 4876 RETURN JBC$_MISREQPAR; 

; 3870 4877 

3; 3871 4878 

3 1h 4879 ' Locate the job to be synchronized on. 

: th 4880 : 

: 3874 4881 STATUS_1 = SEARCH QUEUES ( 

: 3875 488 < Ms Vinge oe QSM_M_PENDING OR QSM_M_HOLD OR QSM_M_CURRENT, 
; CIF TITEM_PRESENTCSUCS_ENTRY_NUMBER] THEN VALUE_ENTRY_NUMBER ELSE 0), 
: VALUE _JOB-NAME , 

: 38 CHECK-R_ATCESS 

: QSM_K"NO_REMOVE; 
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4 
SSNDACC, SSNDSMB, and SSNDJBC services 1}. Sep-19 


SND JBC 00:27:5 AX-11 Bliss-32 v4.0 3542 
v04-000 14- ~307 1382 9939533 NOBCTLe SRCISNDJBC.B32;1 
; 3881 4888 SJH 
; B8¢ 4889 2 IF NOT Statue. : THEN RETURN .STATUS_1; 
: 388 4890 
; 3884 4891 
: tH rt} Enqueue the SYNCHRONIZE request. 
: 3887 4894 STATUS 2 = CREATE_SRQ_RECORD(SROSK_SYNCHRONIZE_JOB, .SJH_N, .SJH); 
; 3888 4895 STATUS. _RECORD(.SJH_NJ; 
: 3889 489 
; 38 489 
> 3891 4898 . STATUS_2 
; 3892 4899 1 END; 
CF04 00000 SJC_SYNCHRONIZE_JOB: 
WORD “Save R2. RB,RI,R10,R11 
52 00000000" EF 9E 00002 hovaB ITEM RESENT, R 
OD 03 Ae 06 £0 00009 BBS Tren PRESENT+3, 1$ 
09 A2 95 0000E TSTB TEM. PRESENT+9 
08 19 00011 BLSS 4 
50 00048108 8F 00 00013 MOVL #295176, RO 
04 OO01A RET 
7E 04 0001B 1$: CLRL = =( SP) 
000000006 EF 9F 0001D PUSHAB CHECK_R ACCESS 
0406 C2 9F 00023 PUSHAB VALUES J AME 
08 03 A2 06 £1 00027 BBC #6, iTEM PRESENTS, 2$ 
50 7E Ag 9E d00¢¢ MOVAB VALUE_ENTRY_NUMBER, RO 
50 DD 00030 PUSHL RO 
02 11 00032 are 
7E D4 00034 28: CLRL © =(SP) 
7E OC AC 7D 00036 3S: MOVO  SMQ_N, -(SP) 
it DD O003A PUSHL #3 
000000006 EF 07 FB 0003C¢ CALLS #7, SEARCH QUEUES 
1B 50 E9 00043 BLBC STATUS_1, 4$ 
7E 58 7D 00046 Ova SiH N, =(SP) 
03 DD 00049 PUSHL # 
000000006 EF 03 FB 00048 CALLS #3, CREATE _SRQ_RECORD 
59 50 D0 00032 MOVL RO, TUS~2 
58 DD 0005 PUSHL SJH_ ; 
000000006 EF 01 FB 00057 CALLS #1, TREWRITE RECORD 
50 59 DO 0005E MOVL STATUS_2, RO 
04 00061 4$: RET 


; Routine Size: 98 bytes, Routine Base: CODE + 1AA8 
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ROUTINE SJC_WRITE_ACCOUNTING= 
'e4¢ 

1 

i FUNCTIONAL DESCRIPTION: 
request. 


INPUT PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
MBX 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


SIDE EFFECTS: 
NONE 


IF 

BEGIN 

IF cBITVECTORCABXCACHSL _STSI, $BITPOSITION 
FIND PROCESS DATA( 


. SMQ=N, 
ELSE 
FALSE 


) 
NTING_RECORD( 


JH_N), READ_R 
ING_MESSAGETS 
ING_MESSAGE § 


BEGIN 
LOCK _QUEUE_FILE 
WRITE _USER_ACCO 
READ_RECORD 
- VALOE_ACCO 
. VALUE~ACCO 
UNLOCK_QUEDE_F I 
END 


vom 


ELSE 
BEGIN 


1984 00:27:5 AX=11 Bliss-32 V4.0-742 Page 1 7 é 

7138 19:55} 9° 385 vo 
| 

his routine processes the SJCS_WRITE_ACCOUNTING (ACCSK_INSMESG) 

- Pointer to buffered mailbox message. 


Completion status to be returned to requestor. 


SJH_N, ' Record number of SJH 
SMQ_N, ' Record number of SMQ 
LENGTH; ! Length of message 


PDE _K_BATCH, .MBXCACMSL_PIDJ, FALSE; 
SJH_N) 


JOBCTL.SRCISNDJBC.B32; 1 


(PCB$V_BATCH) J 


3; Routine Size: 


K 4 
SSNDACC, SSNDSMB, and SSNDJBC services 16-Sep-1984 ¢ 90: go? AX-11 Bliss-32 V4.0-742 Page aad SN 


3D 


112 bytes, 


4 
4965 SS$_ 
1 END; 


14-Sep-1984 JOBCTL.SRCISNDJBC .B32; 1 


WRITE USER_ACCOUNT ING_RECORD( 


6. ie 


NORMAL 


0E1C 00000 sJC “eas? iat boomy 


Save R2,R3,R4,R9,R10,R11 : 
54 00000000G EF 9E 00002 MOVAB wie USER ACEOUN TING_RECORD, R4 3 
53 000000006 EF 9E 00009 MOVAB READ -RECORD, R3 ; | 
52 00000000" EF 9E 00010 MOVAB MBX. 3 
50 62 DO 00017 MOVL MBX, Ro 3 4937) 
2D AO 06 £1 OOO1A BBC #6, /45(RO), 1 ; | 
7E D4 OOO1F CLRL = = (SP) > 4939) 
28 AO DD 00021 PUSHL = 40(RO) > 4940 | 
01 DD 00024 PUSHL > 4939 
000000006 EF 03 FB 00026 CALLS #3. F IND_PROCESS_DATA : | 
ec 50 €9 00020 BLBC RO. 1$ : 
000000006 EF 00 FB 00030 CALLS #0, LOCK QUEUE FILE : 4947 
OBE2 C2 dD 00037 PUSHL  VALUE_ACTOUNTING MESSA GE+2 > 4952. 
7E OBEO C2 3¢ 00038 MOVZWL VALUE TACCOUNTING-MESSAGE, -(SP) > 4951 
5A DD 00040 PUSHL  SMQ_N : 4950 
63 Q1 FB 00042 CALLS #1, ~READ_RECORD : | 
50 DD 0004 PUSHL RO ; 
5B DD 00047 PUSHL  SJH_N : 
63 01 FB 00049 CALLS #1, READ_RECORD : 
50 DD 0004¢ PUSHL RO ; | 
62 DD 0004E PUSHL > 4949, 
64 05 FB 00050 CALLS #5 WRITE_USER ACCOUNTING_RECORD ; | 
000000006 EF 00 FB 00053 CALLS #0, UNLOCR_QUEOE_F > 4953, 
10 11 O005A BRB 2$ > 4935 | 
OBE? C2 BD O005C 18: PUSHL  VALUE_ACCOUNTING_MESSAGE+2 > 4961 
7E 0BEO Ce 3¢ 00060 MOVZWL VALUE~ACCOUNTING-MESSAGE, ~(SP) > 4960 
7E 7C 00065 cLRO (SP : 4957 | 
62 pd 00067 PUSHL MBX > 4958 | 
64 05 FB 00069 CALLS #5, WRITE_USER_ACCOUNTING_RECORD : 
50 01 D0 0006C 28: MOVL #1, RO > 4966 | 
04 0006F ; 
Routine Base: CODE + 1B0A 


SND JBC 
v04-000 


: 3990 


SSNDACC, SSNDSMB, and SSNDJBC services these ~3e0~ 128% 90: ¢7:3 AX-11 8 a artes V4.0-742 


5002 


ROROPONY 2 1 OOOOO 


PROPIPOPINPONPINOPUNIPUNININPIPIPININININININININININD 4 2 9 9 9 
= 


14-Sep-1984 JOBCTL. SND JBC.B32; 1 


ROUTINE PROCESS_ONE_OPTION(CODE,VALUE_SIZE,VALUE_ADDRESS)= 


+ 
aa 


FUNCTIONAL DESCRIPTION: 
This routine validates and stores one parameter value for the $SNDSMB 
and $SNDJBC services. 


INPUT PARAMETERS: 
CODE - SSNDJBC item code. 

VALUE _SIZE = Length of item value. 

VALUE_ADDRESS = Address of item value. 


IMPLICIT INPUTS: 
MBX 


Pointer to buffered mailbox message. 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

Values in the item List in internal storage. 


ROUTINE VALUE: 
Completion status. 


SIDE EFFECTS: 
NONE 


VALUE_ADDRESS: REF BBLOCK; ! Pointer to parameter value 


MACRO 
VALUE _OFFSET_(A)= 
= VALUE_ STORAGE BASE %; 


OWN 
REQUIRED VALUE_SIZE: 
VECTORCMAX-SNDJBC_ITEM+1 ,WORD.SIGNED] PSECT(CODE) PRESET( 

SUC$ -ACCOUNTING_M ESSAGEJ= =255, 
SJCSACCOUNT ety Ve : 
SJC$~ACCOUNT TNARE J -(ACM$S_ACCOUNT), 
SUCSTAFTER_TIMEJ= SJHSS_TIME, 
SJC$_ALIGNAMENT PAGESJ= 4, 
SJCS"BASE_PRIORITYJ= 4, 
SJC$"BATCA_INPUTJ= 0, 
SJCS"BATCH OUTPUT = 0, 
SJC$"BUFFER_COUNTJ= 4, 
SJCS$~ CHARACTERISTIC _NAME J= 0, 
SJCS-CHARACTERISTIC-NUMBERJ= 4 
SJE -CHEGKPOINT _DATRI= 255, 
SUCS~CLIJ= -(SJHS$S_CLI-1), 
SJC$~CPU_DEF AULTJ= 4, 
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3 4247 38 SJCS_LIBRARY SPECIFICATIONJ= VALUE_OFFSET_(VALUE_LIBRARY_ SPECIFICATION), 
: 4248 2 SJC$"LOG_QUEDEJ= VALUE —OF F SET (VALUE_LOG_QUEDE) 
3 4249 4 SJC$"LOG SPECIFICATIONJ= VALUE —OF F SET~ (VALUE-LOG- SPECIFICATION), 
: 4 29 55 SJC$_NOTEJ= VALUE_OFFSET_ (VALUE_NOTE) 
> 4251 28 SJCS_OPERATOR_REQUESTJ= VALUE OF FSET~ (VALUE~OPERATOR_REQUEST), 
3; 4 28 SJC$-OWNER_UICIJ= VALUE_OFFSET— (VALUE_OWNER_UIT), 
; 425 58 SJCS$-PAGE_SETUP_MODULESJ= VALUE_OFFSET- (VALUE_PAGE_SETUP_MODULES), 
3 4254 5259 SJC$-PARAMETER_TJ= VALUE OFF SET_ (VALUE_PARAMETER_T), 
; 4255 5260 S4CS_PARAME TERN ¢ = VALUE OFFSET” (VALUE PARAMETER @) » 
3 4256 5261 SJC$"PARAMETER-3J= VALUE _ OFF SET_ (VALUE_PARAMETER_3), 
3 4257 5 6 SJC$-~PARAMETER-4J= VALUE_OFFSET_ (VALUE_PARAMETER_4), 
: 4258 2 6 SJC$-PARAMETER-5]= VALUE — OFF SET_ (VALUE_PARAMETER_5), 
3 4259 64 $JCS_PARAMETER@6 z VALUE _OF F SET_ (VALUE_PARAMETER_6), 
; 4260 236 SJC$"PARAMETER-7J= VALUE _OFFSET_ (VALUE_PARAMETER_7), 
; 4261 5266 SJC$-PARAMETER-8J= VALUE _ OFF SET_ (VALUE_PARAMETER_8), 
; 426¢ 2367 2 SJC$_PRIORITYJ= VALUE — OF F SET— (VALUE~PRIORITY) 
3 426 5268 SJC$"PROCESSORJ= VALUE ~ OF F SET~ (VALUE PROCESSOR) 
> 4264 5269 SJC$_PROTECTIONI= VALUE ~OF FSET~ (VALUE PROTECTIONS, 
3 4265 5270 SJC$_QUEUEJ= VALUE _ OF F SET_ (VALUE _ QUEUE) 
> 4266 5271 2 SUCSTQUEUE FILE SPECIFICATIONJ=VALUE~OFFSET~ (VALUE -QUEUE_FILE_ SPECIFICATION), 
3 4267 2278 2 CSJC$_RELATIVE_PAGEJ= VALUE_OFFSET_(VALUE_RLLATIVE_PAGE), 
3 4268 5273 2 SJCS_RESERVED_INPUT_1]= VALUE _OFFSET_ (VALUE_RESERVED_INPUT_1), 
3 4269 5274 2 SJCS_RESERVED_INPUT_2)= VALUE_OFFSET_(VALUE_RESERVED_INPUT_2), 
3 4270 5275 2 SJCS-RESERVED_INPUT_3J= VALUE_OFFSET_ (VALUE_RESERVED_INPUT_3), 
3 4271 5276 2 ESUCS_RESERVED_INPUT 4]= VALUE _OFFSET_ (VALUE_RESERVED_INPUT_4) 
3 4272 5277 2 SJCS$-RESERVED_OUTPUT_1]= VALUE _OF F SET~ (VALUE RESERVED OUTPUT_15, 
3 4273 5278 2 ESJCS_RESERVED OUTPUT~2)= VALUE_OFFSET_(VALUE_RESERVED_OUTPUT_2), 
3 4274 5279 2 SJCS$_SCSNODE_RAME J= VALUE _OFF SET_ (VALUE_SCSNODE_ NAME 
: 4275 5280 2 CSJC$_SEARCH STRINGJ= VALUE OFF SET~(VALUE-SEARCH STRING), 
3 4276 5281 2 CSJC$_WSDEFAOLTJ= VALUE _ OFF SET_(VALUE_WSDEFAOLT), 
3 4277 228 2 ESJCS_WSEXTENT J= VALUE ~ OFF SET_ (VALUE_WSEXTENT), 
; 4278 5283 2 SJC$_WSQUOTAJ= VALUE _ OF F SET— (VALUE _WSQUOTA) ); 
; 4279 5284 § 
; 4280 5285 
: 4281 5286 2 LOCAL 
3; 4282 5287 2 VALUE_STORAGE: REF BBLOCK; ! Pointer to internal storage area 
: 4283 5288 2 
3 4284 5289 2 
3; 4285 5290 § IF 
> 4286 5291 BEGIN 
3 4287 2292 IF .REQUIRED_VALUE_SIZEC.CODE] EQL 0 
: 4288 529 THEN 
3 4289 5294 FALSE 
3 4290 2399 ELSE IF .REQUIRED_VALUE_SIZEC.CODE) LSS 0 
3 4291 5296 THEN 
3 4292 5297 -VALUE_SIZE GTRU - .REQUIRED_VALUE_SIZEC.CODE) 
3; 4293 5298 ELS 
3 4294 2299 -VALUE_SIZE NEQ .REQUIRED_VALUE_SIZEC.CODE) 
: 4295 5300 
: 4296 5301 THEN 
3 4297 230 RETURN JBC$_INVPARLEN; 
3; 4298 530 
3 eens 5304 
; $300 $306 VALUE_STORAGE = VALUE_STORAGE_BASE + .VALUE_STORAGE_OFFSETC.CODE); 
: 430 307 
: 430 5308 2 CASE .VALUE_STORAGE_CASEC.CODE] FROM K_ACCOUNTING_TYPES TO K_VALUE_1_10_65535 OF 
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SET 


¢ CKACCOUNTING_ TYPES): 

¢ i - VALUE _ADDRESSCSJC$V_ACCT_UNUSED] NEQ 0 

§ RETURN JBC$_INVPARVAL; 

3 Fi UE STORAGELS 8.52.63 = .VALUE_ADDRESSCO,0,32,0]; 


CK_ACCOUNT NAME]: 
IF NOT .BBLOCKCMBXCACMSG_PRVMSKI, PRVSV_CMKRNL] 
RETURN JBC$_NOCMKRNL; 
CHSCOPY(. VALUE SIZE, .VALUE_ADDRESS, %C* *, ACM$S_ACCOUNT, MBXCACM$T_ACCOUNT)); 


CkKAABTER TIME): 
If .VALUE_ADDRESS(4,31,1,0] 
SUBM(?, .VALUE_ADDRESS, CUR_TIME, .VALUE_STORAGE) 


WAWANANANAANANAN AAAI 
COO 
FUG SOON RU OOO NOMEN AODSe ern 


WANA AAR RNP NONI PNINYND 2 2 OO OO OOO 


BEGIN 
VALUE_STORAGELO,0,32,0] = rar ertetittie a Matte 
VALUE _STORAGEL4,0,32,0] = .VALUE_ADDRESS(4,0,32,0); 


END; , 


OOCOnNOM 


[K_ALIGNMENT_PAGES): 
BEGIN 


IF .VALUE_ADDRESS(O,0,32,0) EQL 0 
OR .VALUE_ADDRESS(CO,0,32,0)] GTRU 20 


N 
RETURN JBC$_INVPARVAL; 
VALUE _STORAGECO,0,32,03 = .VALUE_ADDRESSCO,0, 32,0); 


OOONOUSWwh-- 


(K_BASE_PRIORITY): 
TF” VALUE ADDRESSCO,0,32,01 GTRU 15 
RETURN JBC$_INVPARVAL; 
VALUE_STORAGECO,0,8,0] = .VALUE_ADDRESS(CO,0,8,0); 


IF .VALUE_ADDRESSCO,0,8,0] GTRU .MBXCACMSB_PROCPRIJ 
AND NOT .BBLOCKCMBXCACM$Q_PRVMSK], PRVSV_ACTPRIJ 


PAA MAAWVIV 
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[K_DESTINATION_QUEUE_NAME): 
BEGIN 


LOCAL 
SDSC BBLOCKCSDSC_K_LENGTH); 


my VALIDATE _OBJECT_NAME(.VALUE_SIZE, .VALUE_ADDRESS, SDSC) 


Fe at et et et et et et et et et ek ed el ek ek dk ek 


v04-0 Sep-1984 JOBCTL.SRCISNDJBC.B32; 3 
: 4361 6 AND NOT .BBLOCKCMBXCACMS$Q_PRVMSK], PRVSV_OPER] 

3 4 66 6 THEN 

: 436 68 VALUE _STORAGECO,0,8,0] = .MBXCACM$B_PROCPRIJ; 

3; 4364 69 END; 

3; 4365 70 

; 4366 f} 

; 4367 CK_BUFFER_COUNT): 

3 4368 5373 BEGIN 

3 rt é es IF .VALUE_ADDRESS(CO,0,32,0] GTRU 127 

; oon) 5 6 RETURN JBCS$_INVPARVAL; 

3 1358 H 76 VALUE_STORAGELO,0,8,0] = .VALUE_ADDRESS(O,0,8,0]; 

3 4374 5379 2 END; 

; ogi? 5380 2 

: 4376 5381 

3 rt 144 2386 CK_CHARACTERISTIC_NAME): 

3: 4379 5384 H IF NOT VALIDATE_OBJECi_NAME(.VALUE_SIZE, .VALUE_ADDRESS, .VALUE_STORAGE) 
; 4380 5385 TH 

3; 4381 5386 3 RETURN JBC$_INVCHANAM; 

2 $386 5387 3 

3; 438 5388 3 IF .MBXCMSG_W TYPE] NEQ MSG$_SNDJBC 

3 4384 5389 4 OR (.MBXCACASQ_FUNC] NEG SJCS_DEF INE CHARACTERISTIC 
> 4385 5390 4 AND .MBXCATM$W_FUNC] NEQ SJC$_DECETE_CHARACTERISTIC) 
; 4386 5391 3 THEN 

: 4387 5392 4 BEGIN 

; 4388 5393 4 LOCAL 

; 4389 5394 4 VALUE; 

: 4390 5395 4 

3 4391 5396 4 IF NOT FIND_CHARACTERISTIC(.VALUE_STORAGE; VALUE) 
; 4392 5397 4 

: 4393 5398 4 RETURN JBC$_NOSUCHCHAR; 

3: 4394 5399 4 

3 4395 5400 4 VALUE_CHARACTERIST!CSC.VALUE] = TRUE; 

3: 4396 5401 3 END; 

: 4397 5402 2 END; 

: 4398 5403 2 

3: 4399 5404 

; $409 2 Re CK_CHARACTERISTIC_NUMBER): 

3; 4402 5407 3 IF .VALUE_ADDRESSCO,0.32,0] GTRU 127 

3: 4403 5408 3 

: 4404 5409 3 RETURN JBC$_INVPARVAL; 

; 4405 5410 ; 

3 4406 5411 VALUE_STORAGECO,0,8,0) = .VALUE_ADDRESS(O,0,8,0); 

> 4407 5 le 3 VALUE~CHARACTERISTICSL.VALUE_ADDRESSLO,0, 52.01] = TRUE; 
: 4408 5413 2 END; 

; 5414 é 

: 5415 

; 5416 

3 5417 

218 

; 20 

: 3754 

3 5422 
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< 
Pan) 


RETURN JBC$_INVDSTQUE; 


If NOT FIND QUEUE (SD oe 
VALUE STORAGELO,0,32,03, VALUE_STORAGEC4,0,32,0)) 


. RETURN JBC$_NODSTQUE; 


CK_FILE_ IDENTIFICATION): 
BEGIN 
LOCAL 


CHSMOVE ( 


Pe ta a ee ee el eek ek et et a et ek ee ae 
VIEW OOODNA LEU -"OVOONOUS Ww 


TALLOCATION( VALUE FILE IDENTIFICATION) 
VALUE _ADDRESS(0,0,0,0 
4 VALUE -FILE_IDENTIFICATION); 
2 4 L_= .VALUE_ADDRESS(36,0,16,0); 
4 IF .L GTRUSQRSS FILE SPECIFICATION-1 THEN L = SQRSS_FILE_SPECIFICATION-1; 
2 4 VALUE_FILE_SPECIFICATTONCSDSC_W_LENGTH] = .L; 
‘ee YAR “FILE-SPECIFICATIONCSDSC_A_POINTER] = VALUE_ADDRESS(38,0,0,0); 
544 
544 
544 


Ck _FORM WARE): 
1 NOT VALIDATE_OBJECT_NAME(.VALUE_SIZE, .VALUE_ADDRESS, .VALUE_STORAGE) 
RETURN JBC$_INVFORNAM; 
if -MBXCMSG_W_TYPE] NEQ MSG$_SNDJBC 
UMaXTACASO FUNC] NEQ SJCS_DEF INE 
Do D .MBXCATMS$W_FUNC] NEQ SJCS MELE TE. _FORM) 
IF NOT FIND FORA NAME ( 
. VALUE_ STORAGE; 
VALUE. FORMCOI. VALUE _FORMC1)) 
RETURN JBC$_NOSUCHF ORM; 
END; 
CK_FORM NUMBER): 
VALUE _STORAGECO,0,32,0] = .VALUE_ADDRESSCO,0,32,0); 


IF .MBXCMSG_ W_TYPE] NEQ MSG$_SNDJBC 
OR .MBX ACMSW FUNC] NceQ SJCS"DEFINE_FORM 


IF NOT FIND, FORM NUMB Rt. 
.VALUE_5 ange 0 
VALUE. FORMEO OAL OE 2 ORAL) 


RETURN JBC$_NOSUCHFORM; 


SN NN NAA AAAAA AAA MANNII 
SRO RUN ODO NOE WI ODO NO UME WN OO NO 


END; 
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[K_OWNERSHIP): 
IF NOT .BBLOCKCMBXCACMSQ_PRVMSK], PRVSV_OPER] 
RETURN JBC$_NOOPER; 
VALUE. STORAGELO,0,32,03 = .VALUE_ADDRESSCO,0,32,0); 


CK_PRIORITY): 
BEGIN 


4475 0 
447 1 [K_GENERIC_TARGET): 
447 é BEGIN 
4478 LOCAL 
4479 4 SDSC: BBLOCKLSDSC_K_LENGTH); 
448i 6 IF VALUE STORAGECO,0,32.0] GEQU JBCSK_MAXGENTGT 
4c8s 8 RETURN JBC$_INVPARLEN; 
4485 6 IF NOT VALIDATE_OBJECT_NAME(.VALUE_SIZE, .VALUE_ADDRESS, SDSC) 
ret) é RETURN JBC$_INVDSTQUE; 
4488 
4489 i If NOT FIND_QUEUE(SDSC; , , 
4490 5 VALUE _ STORAGE aes .vALGE_stORAGELO.0,32,01,0,32,01 
4491 96 eqVALUEXSTORAGE [8+8* : VALUE ~STORAGE 00°32-03.0,32.015 
4498 8 RETURN JBC$_NODSTQUE; 
4495 0 VALUE _STORAGELO,0,32,0] = .VALUE_STORAGECO,0,32,0) + 1; 
4496 1 END; | 
4497 g | 
4498 | 
499 i Ck_OUTPUT_ITEM): 
500 5 BEGIN 
é VALUE_STORAGECODSC_W_LENGTH] = .VALUE_SIZE; | 
; WALUE~STORAGELODSC~A~POINTER] = .VALUE ADDRESSCO,0,32,0); 
8 VALUE~STORAGELODSC~A“LENPOINTER] = .VACUE_ADDRESSL4,0,32.01; 
0 
4 
5 
6 
? 
B 
9 
0 
4 
5 
6 


If _.VALUE_ADDRESSC1,0,24,03 NEQ 0 
RETURN JBC$_INVPARVAL; 
VALUE_STORAGECO,0,8,0] = .VALUE_ADDRESSCO,0,8,0); 
MAXPRI = .SYS$GB_MAXQUEPRI; 
IF .MAXPRI EQL O-THEN MAXPRI = .MBXCACMSB_PROCPRI); 


IF .VALUE_ADDRESSCO,0,8,0) GTRU .MAXPR 
AND NOT .BBLOCKCMBXCACM$Q_PRVMSKI, PRVSV_ALTPRIJ 


+ 46 

: 44 

: 4 

: 4 

: 4501 
+ 4502 
3; 4503 
: 4504 
: 4505 
: 45 

> 45 

: 4 
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14-Sep-1984 
AND NOT .BBLOCKLM3XCACM$Q_PRVMSK], PRVSV_OPER] 
wp; VALUE-STORAGECO.0.8.03 = .MAXPRI; 


JOBCTL.SRCJSNDJBC .B32; 


CK_QUEUE NAME): 
IF NOT VALIDATE_OBJECT_NAME(.VALUE_SIZE, .VALUE_ADDRESS, .VALUE_STORAGE) 
RETURN JBC$_INVQUENAM; 
END; 


CK_STRING): 
BEGIN 
VALUE _STORAGECSDSC_W_LENGTH] = .VALUE SIZE; 
VALUE STORAGECSDSC“A-POINTER] =". VALUE, ADDRESS; 
Ck_UIC]: 


GIN 
If NOT .BBLOCKCMBXCACMSG_PRVMSKI, PRVSV,CMKRNL] 
RETURN JBC$_NOCMKRNL; 
CHSMOVE ( . VALUE_SIZE. .VALUE_ADDRESS, MBXCACMSL_UICJ); 


CK_USERNAME J: 
IF NOT .BBLOCKCMBXCACM$Q_PRVMSK], PRVSV_CMKRNL] 
RETURN JBC$_NOCMKRNL; 
POCr SE FANS -VALUE_ ADDRESS, %2C* °, ACMSS_USERNAME, MBXCACMS$T_USERNAME J) ; 


[K_USER_IDENTIF CATION): 
IF NOT .BBLOCKCMBXCACMSQ_PRVMSK], PRVSV_CMKRNLJ 
RETURN JBC$_NOCMKRNL; 
CHSMOVE ( . VALUE_SIZE, .VALUE_ADDRESS, MBXCACMSL_UICJ); 


CK_VALUE): 
CHSMOVE(.VALUE_SIZE, .VALUE_ADDRESS, .VALUE_STORAGE); 


CK_VALUE_NOT_0): 
BEGIN 
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; 4589 94 IF .VALUE_ADDRESSCO,0,32,0 EQL 

; 4590 95 THEN 

: rr? 4 RETURN JBC$_INVPARVAL; 

: 1398 5598 VALUE_STORAGELO,0,32,0] = .VALUE_ADDRESSCO,0,32,0); 
3: 45946 599 END; 

ae gs 

: 4597 2608 [K_VALUE_0_T0_255): 

: 4598 60 BEGIN 

3 rt 4 eene IF .VALUE_ADDRESSC1,0,24,0] NEQ 0 

; 4601 $606 RETURN JBC$_INVPARVAL; 

> 460 5608 VALUE STORAGECO,0,8,03 = ,VALUE_ADDRESSCO,0,8,02; 
; 4604 5609 END; 

a ge 

: 4607 2618 [k_VALUE_1_10_255: 

+ 4608 561 BEGIN ~ 

+ 4609 5614 ; IF .VALUE_ADDRESS 0. 0,32,0] EQL 0 

> 4610 5615 OR .VALUE-ADDRESSL1.0,24.0] NEQ 0 

> 4611 5616 3 HEN 

; re 8 ae ; RETURN JBC$_INVPARVAL; 

: 4614 5619 3 VALUE _STORAGECO,0,8,03 = .VALUE_ADDRESSCO,0,8,0]; 
+ 4615 3620 END; 

+) 

; 4618 5698 : Ck -VALUE 0 10_65535): 

: 4620 3625 3 IF .VALUE_ADDRESSC2,0,16,0] NEQ 0 

; 462 3627 : RETURN JBC$_INVPARVAL; 

t 4624 3629 j VALUE, STORAGELO,0, 16,03 = .VALUE_ADDRESSCO,0,16,0); 
> 4625 5630 END; 

: 2855 263) 

> 4628 363 [K_VALUE_1_10_65535): 

+ 4629 5634 BEGIN ~ 

+ 4630 5635 IF .VALUE -ADDRESSEQ.0 32,0] EQL 0 

: 4631 3636 OR - VALUE ~ADDRESSL2,0.16,0) NEG 0 

; 4635 3638 NRETURN JBC$_INVPARVAL; 

: 4635 5640 VALUE_STORAGELO,0,16,0] = .VALUE_ADDRESSCO,0,16,0); 
+ 4636 5641 END; 

3; 4637 eoh¢ 

: 4638 64 

t 4639 2644 

ge ee 

> 464 ek ITER, PRESENTL. CODE] = TRUE; 

3 464 5648 

+ 4644 5649 
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500-850 an DJBC serv 
00 66 16 
30 00000000' 
0 04 
08 20 66 08 
1c 
07 
67 00000000" EF 
04 A? 00000000' 
04 A? 04 
67 
14 
OF 
67 
50 00000000’ 
24 = AO 
7C 05 a0 
77 06 AO 
67 24 
0000007F + 8F 
7E 
08 
000000006 Fe 
50 00048140 
50 00000000' 
OF 
0D 58 
OF 58 
000000006 Fe 
50 00048150 
69 00000000" EF 
Q0000007F = =aBF 


3 6 
ces 16-Sep-1 
14-Sep-1 

OA O7F 5$: 

45 RB 09 4, 
O2DA 31 086 gs: 

EF 4 0089 7$: 

AO § 0090 
0287 31 00094 

AC 2C 00097 8$: 

AQ 009D 

50 11 O009F 

AS 98 33u 9 

6 a S09A6 
DO OOOAE 
A6 09 00086 
34 11 00088 
66 7D 000BD 10$: 
2F 11 000C0 
66 DS 000C2 11$ 
CO 13 000C4 
66 D1 000C6 
BB 1A 000C9 
0268 31 000CB \¢s: 
66 D1 OOOCE 158: 
B3 1A 000D1 
66 90 00003 
EF DO 00006 
66 91 000DD 
68 1B 000E1 
05 €0 OO0E3 
02 £0 OOOES 
AO 90 OOOED 
71 11 QOOF1 14$: 
66 D1 OOOF3 158: 
8A 1A OOOFA 
O24F 31 OOOFC 
56 7D OOOFF 16$: 
AC DD 00102 
03 FB 00105 
50 €8 0010C 
8F 00 0010F 
04 00116 
EF DO 00117 17$: 
60 B1 Bote 
C 12 00121 
AO B61 00123 
38 413 00127 
AO Bi 00129 
35 13 00120 
57 DD OO12F 188: 
01 Fe gat 1 
50 €8 00138 
8F DO 001 
04 0014 
38 Fe 0145 19$: 
67 11 00148 sue: 
66 D1 00140 21$: 
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65$-4$ 

#10, #22, (R6), #0 

12$ 

66$ 

MBX, RO 

aeRO)” rt} 

54$ 


VALUE_SIZE, (R6), #32, #8, 28(RO) 


), ‘weal Steeda 


AAD 


6), #20 


(R6), #15 

(RO), + gGWALUE STORAGE) 
CROs, 36(RO) 

20$ 

#5, 5(RO), 23$ 


#2, 6(RO), 23$ 
36(RO), (VALUE STORAGE) 


VALUE _SIZE 
4% VALIDATE ~OBJECT_NAME 


#255252, RO 


MBX, RO 
(ROS, #15 


88(RO), #13 
(RO), #15 


VALUES RAGE 
FIND” CHARACTERISTIC 


4 1 
#295248, RO 
VALUE, VALUE_CHARACTERISTICS, 288 
(R6), #127 
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06-000 14- op obe 90: $5 33 JOBCTL.SRCJSNDJBC.B32;1 9° (36) 
3 1B 00154 BLEQU 22$ : 
67 028A 34 ™” 228: ROVE —_°R6). (VALUE. STORAGE) : 5411 
50 00000000' EF 66 8 015¢ BBSS § (R6), VALUE_CHARACTERISTICS, 28% + 5412 
4E 11 00164 23$: BRB 28$ : 5308 
4040 8F BB 00166 24$: PUSHR #*°M<R6,SP> : $421 
08 aC DD 0016A PUSHL VALUE_S1ZE : 
000000006 ai : FB 0160 CALLS #3, VALIDATE_OBJECT_NAME : 
3 0 5 0174 BLBS R0 25$ : 
OOP BD COTA 258: poem : + §425 
000000006 EF QT FB O17¢ CALLS FIND_QUEUE : 5426. 
67 A 7D 0018 MOVG n16, S{VACUE _ STORAGE) : | 
2B 50 ES 0186 BLBS : | 
00DD 31 00189 BRW i9 ; 5428 
00000000" EF 66 24 ¢8 0018C 268: MOvVC3 #36, (R6), VALUE_FILE_IDENTIFICATION ; 5439 
50 24 AB 3C 00194 MOVZWL 36(R6), L : 5441 | 
OOOOOOFF BF 50 01 00198 CMPL ‘ni + 5442 | 
04 1B 0019F LEQU : 
50 FF 8F 9A OO1A1 MOV ZBL : 
00000000" EF 50 BO OO1AS 27$: MOVW r ah be FILE_SPECIFICATION + 5443) 
00000000" EF 26 A6 YE OOTAC MOVAB 8 <R6), VALUE _F ILE_SPECIFICATION+2 : 5444. 
0187 31 001B4 28$:  BRW : 5308. 
7E 56 7D 001B7 29$:  Mova Re, = (SP) : 5450) 
08 AC DD 001BA PUSHL VALUE_SIZE ; 
000000006 EF 03 FB 001BD CALLS #3, VALIDATE_OBJECT_NAME : 
08 50 £8 001C4 BLBS =R ; | 
50 00048148 BF DO 001C7 MOVL #295240, RO + 5452) 
04 001CE RET : | 
50 00000000" EF DO OOICF 30$: § MOVL MBX, RO + 5454 
OF 60 B1 00106 CMPW = (ROS, #15 : | 
OC 12 00109 BNEQ 31$ ; 
3 58 AO 61 001DB CMPW =s-« BB(RO), #14 : 5455 | 
D3. 13 O01DF BEQL 28$ : | 
10 58 AO Bi 001E1 CMPW 3 =s-« BB(RO), #16 : 5456. 
CD 13 OO1E5S BEQL 28$ 3 
57 DD OO1E7 31$: PUSHL ag STORAGE : 5459. 
00000000G_ EF 01 FB OO1E9 CALLS F IND_F ORM_NAME : 
1E 11 001FO BRB : 5460. 
67 66 D0 bores 32$: MOVL (R6), (VALUE_STORAGE) : 5468 | 
50 00000000" EF 00 OO1F MOVL : 5470 
OF 60 B1 OO1FC CMPW 3s (ROS, #15 ; 
06 12 OOIFF BNEQ H 
OE 58 A0 8 90201 CMPW 88(RO), #14 > 5471 
AD 13 00205 BEQL 3 
67 DD 00207 33%:  PUSHL (VALUE STORAGE) > 5474 
00000000G EF 01 FB 00209 CALLS FIR gonn NUMBER ; 
00000000° EF SA 70 00 10 34$: mova R16, OAL E_FORM 3 5475 | 
SA 50 €8 00217 BLBS sR > $473 
50 00048158 &F BO 00 yA HOVL #295256, RO : $477 | 
52 67 DO 00 é 35$:  MOVL  (VALUE_STORAGE), R2 + 5486 | 
0000007c_ ~—s BF 52 D1 00 CMPL R2, #124 ; 
08 1F 0022C BLSSU 3 : | 
50 00048090 &F Bo 0 E 368: MOVL #295056, RO > $488 | 
4040 8F BB 00236 37%: PUSHR #*M<R6,SP> : 5490. 
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38$: 
39$: 


40$: 
41$: 
42$: 


43$: 


44$: 
45$: 
46$: 


47$: 


48$: 
49$: 


50$: 


—b st 


bc 1:87:15 Edacte°SneSsnbsac-030;1 


VALUE _SIZE 
#3, VALIDATE_OBJECT_NAME 


R 
#295112, RO 


QUEUE 
STORAGE) CR2J 
SP)+ 

STORAGE) CR2] 
P)+ 


TORAGE) 


s 
ieee (VALUE _STORAGE ) 


y 
“2 (VALUE_STORAGE ) 


Q 
$ 
LVE_$ 
6), 2 
$ 
X, RO 
$ 


Bsn fe BDADOLBM 


MmO—-Droml wWORKn—-—T NO 


. R 
6(RO), 44$ 
58$_ 
#272532, RO 
#0, #24, 1(R6), #0 
46% 
668 
(R¢), (VALUE_STORAGE) 
SYS$6B_MAXQUEPRI., MAXPRI 
MBX, RO 
36(RO), MAXPRI 
#0, #8, (R6), MAXPRI 
59§ 
MEX, RO 
#5, 5(RO), 59$ 
#2, 6(RO), 63$ 
MAXPRI, (VALUE_STORAGE) 
63$ 
R6, -(SP) 
VALUE _SIZE 
a, VALIDATE _OBJECT NAME 
£64886, RO 
VALUE_SIZE, ‘VALUE_STORAGE) 
RG, 2TVALUE_STORAGE) 


MBX, RO 
4(RO), 54$ 


4 
VALUE_SIZE, (R6), #32, #12, 16(RO) 


68$ 


MBX, RO 
4(RO), 55$ 
#272388, RO 
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SND JBC SSNDACC, SSNDSMB, and $SNDJBC services 16-Sep-1984 27:5 AX-11 Bliss-32 V4.0-742 
504-860 1o-808- 1388 9039537 JOBCTL. RCISNDJBC.B32: 1 
4 5 RET 
0c Ad 66 08 ag 28 ? 55$: reyes Ys UE_SIZE, (R6), 12(R0) 
67 66 08 AC ¢ 0 56$: MOVC3 VALUE_SIZE, (R6), (VALUE_STORAGE) 
39 «11 BRB 68$ 
$6 D 57$: TSTL (R6) 
A J BEQL 66$ 
67 D 9 58s: MOVL = (R6),  (VALUE_STORAGE) 
11 C 59$: BRB 68$ 
00 01 A6 18 Fe E 60$: CMPZV) «#0, #24, 1(R6), #0 
0 0344 BEQL 62$ 
1B 11 00 rt Bea 66$ 
66 Be 0348 61$ TSTL (R6) 
1 13 0034A BEQL 66$ 
FO 11 0034C BRB 60$ 
67 66 90 0034E 6¢ MOVB (R6), (VALUE_STORAGE) 
1B 11 00351 63$ BRB 68$ 
02 A6é B5 00353 6 TSTW 2(R6) 
0B 12 BO R28 BNEQ 66$ 
11. 11 00358 BRB 67$ 
66 DS 0035A 65$ TSTL (R6) 
05 13 0035C BEQL 66$ 
02 A6 BS 0035E TSTW 2(R6) 
08 13 00361 BEQL 67$ 
50 00048110 8F DO 00363 66$ MOVL #295184, RO 
04 0036A RET 
67 66 BO 00368 67$ MOVW (R6), (VALUE_STORAGE) 
60 00000000" EF 04 AC €E2 0036E 68$ BBSS CODE, ITEM_PRESENT, 69% 
50 01 D0 00377 69$ MOVL 1, RO 
04 0037A RET 
: Routine Size: 891 bytes, Routine Base: CODE + 1ED8 
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SNDJ SSNDACC, SSNDSMB, and SSNDJBC services 18. Sep-1984 7:27:52 VA¥-11 Blisg-32 V4.0-74 Pa 50 
v04* . 14+ ~3e07} 38? 99:4 : CJOBCTL. SRO Sib UbC B3064 9 49 


: 464 650 1 GLOBAL ROUTINE SNDACC_SERVICE= 

3: 464 651 1 

3 re re | 6 ¢ 1 tee 

3; 4646 6 1 i 

; 4650 654 1 ! FUNCTIONAL DESCRIPTION: 

; 4651 655 1! his fous ios A the avenege type: 

; 465 6 § 1! end to “accounting manager 
; 465 657 1! by dtepeteh ie to a request-spectt ic routine. 

: 46546 658 1! 

; 4655 659 1 ! INPUT PARAMETERS: 

3 £638 5660 1! NONE 

: 465 298) 1! 

; 6658 606 1 ! IMPLICIT INPUTS: : : 

: 4659 5665 1! MBX - Pointer to buffered mailbox message. 
: 4660 5664 1! 

3; 4661 5665 1 ! OUTPUT PARAMETERS: 

: 466 5666 1! NONE 

; 466 5667 1! 

3 4664 5668 1 ! IMPLICIT OUTPUTS: 

: 4665 5669 1! NONE 

: 4666 5670 1! 

; 4667 5671 1 ! ROUTINE VALUE: 

; 4668 aere 1! Completion status to be returned to requestor. 

3; 4669 5673 1! 

; 4670 5674 1 ! SIDE EFFECTS: 

3; 4671 5675 1! NONE 

3; 467 5676 1! 

3; 467 5677 1 !<- 

: 4674 5678 1 

3: 4675 5679 2 BEGIN 

: 4676 5680 § OWN 

: 4677 5681 hee 357, ROUTINE: VECTORCMAX_SNDACC_FUNC+1] 
: 4678 5682 2 SECT(TODE) PRESET( 

; 4679 5685 2 CACC$K_DISAACCIJ= SJC_STOP_ACCOUNTING, 

; 4680 5684 2 CACC$K_DISASELJ= SJC-STOP- CCOUNTING, 
> 4681 5685 2 CACC$K~ENABACCJ= SJCSTART_ACCOUNTING, 
3; 4682 5686 2 CACC$K_ENABSELJ= SJC_START_ACCOUNTING, 
; 4683 5687 2 CACC$K_INSMESGJ= SJC"WRITE-ACCOUNTING 
> 4684 5688 2 CACCSK_NEWF ILEJ= SJCZSTART_ACCOUNTING) ; 
: 4685 5689 2 LOCAL 

; 4686 5690 2 PROC_ROUTINE; 

; 4687 2033 f 

3 $083 269 Ensure that the message contains the request type. 

3 roth 3692 Fees -MSGLEN] LSSU SBYTEOFFSETCACM$W_USERREQ) + 2 

3; 469 5697 EN ETURN JBC$_INVMSGBUF ; 

> 4694 5698 

3; 4695 5699 

: rts 2700 : Validate the request type. 

3; 4698 a7be DIAG lnecet = .MBXCACM$W_USERREQ]; ! sete diagnostic info tt 
3; 4699 570 PEA FACRSU- USERREQ) LSSO MIN_ SNDACC _FUNC 

3 2700 3oRe OR nex ACM$W_USERREQ] GTRU MAX~SNDACC "FUNC 

; 4702 5706 EN RETURN JBC$_INVFUNCOD; 


H 6 
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SNDACC_COUNTC .MBXCACMS$W_USERREQ]] = SNDACC_COUNTC .MBXCACMS$W_USERREQ]] + 1; 


Set up for parameter preprocessing. 


CHSFILL(O VALUE STORAGE END = VALUE STORAGE _BASE 


E_STORAGE_BASE); 
PROC_ROUTINE = .PROCESSING_ROUTINEL.ABXLACMSO BUSERREON IS 


Preprocess the remaining parameters into static storage. 
CASE, -MBXLACMSW_USERREQ] FROM MIN_SNDACC_FUNC TO MAX_SNDACC_FUNC OF 


—> 4 2 as 2 


LOUTRANGE): 
RETURN JBC$_INVFUNCOD; 


CACCS$K_INSMESG): 
BEGIN 
LOCAL 
STATUS; 


STATUS = PROCESS_ONE ace tone 
SJCS$_A ACCOUNTING RESSA 
SABXTACHEN, ms GLEN - $b YTEOFFSET(ACHST _DATA), 
te, NOT <STATUS THEN RETURN . STATUS; 


LAN rororororr 
AOE WM $$ O OONOU EWN 0 OD NAMES WN OCONO UES WN OO 


SN NNN NGS 


CACCSK NEWFILEJ: 
ITEM_PRESENTLSJCS_NEW VERSION] = TRUE; 


CACCER EMABACE, ACCS$K_DISAACC): 


BEBE EE EEE EWN morn 


CACCSK_ENABSEL, ACCS$K_DISASEL]: 
BEGIN 


BBLOCK(4], ' Bit mask 
CURSOR: REF VECTORL, BYTE); ' Parameter cursor 


Initialize. 


MASK = 0; 
CURSOR = MBXCACMS$T_DATA]; 
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! Process the user's parameter List to generate the bit mask. 
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14-Sep-1984 JOBCTL.SRCISNDJBC.B32; 


< 
° 


: 4760 764 ; ' 5 
: 4761 765 WHILE .CURSOR LSSA .MBX_END DO 2 
; 4768 766 4 BEGIN | 
; $763 16 é CASE  SURSORLO] FROM 0 TO ACCSK_INSMSG OF 3 
: 6765 789 4 INRANGE, OUTRANGE): RETURN JBC$_INVITMCOD; : | 
: 4766 770 4 0): EXITLOOP: s) 
: 676 771 & ACCSK_PRCTRM): MASK sucgy ACCT -PROCESS] = TRUE; 3 
3 4768 re 4 ACCSK_BATTRM): MASKESJCSVLACCT BATCH) = TRUE; . ij 
: 4769 773 4 ACC$K-INTTRM): MASK ita tip “ACCT-INTERACTIVE] = TRUE; 2 | 
: 4770 5774 4 ACC$KLOGTRM]: MASKCSJCSV-ACCT-LOGIN FAILURE] = TRUE; 2 | 
3 4771 775 4 ACCS$K_IMGTRM): MASKCSJC$V_ACCT_IMAGE] = TRUE; 2 ij 
: 477 776 4 ACC$K~SUBTRM): MASKCSJCS$V-ACCT-SUBPROCESS] = TRUE; 2 
: 477 777 4 ACCSK-DETTRM): MASKCSJCSV-ACCT-DETACHED] = TRUE; : 
> 4774 5778 4 ACCS$K~ Mm): MASKCSJC$V-ACCT-NETWORK] = TRUE; | 3 | 
+ 4775 5779 4 ACC$K_PRTJOB): MASKCSJC$V-ACCT-PRINT] = TRUE; s} 
: 4776 5780 4 ACCSK~INSMSGJ: MASKCSJC$V~ACCT-MESSAGEJ = TRUE; | 
: 4777 5781 4 TES; | 3 
: 4778 2782 4 CURSOR = .CURSOR + 1; | .) 
: 4779 5783 3 END; ej 
; 4780 5784 ; : 
; 478 5786 3 VALUE_ACCOUNTING_TYPES = :} 
: 478 5787 ITER _PRESENTCSJCS_ ACEOUNTING: stiPES) = TRUE; 3 | 
+ 4784 5788 END | 
: 4785 5789 35 
: 4786 5790 i 
: 4787 5791 TES; | $j 
; 4788 2738 i 
: 4789 579 i 
3; 4790 5794 2 ! Dispatch to execute the request. ei; 
> 4791 5795 2! 3; 
: 4792 5796 2 (.P PROC ROUTINE) () .| 
> 4793 5797 1 END; 3 ij 
é i 
' : i 
02253 -BLKB 1 3 i 
00# 02254 PROCESSING ROUTINE : 3 | 
00000000" 00000000' 00000000 00000000 00000000' 00000000' 02258 -ADDRESS SJC_WRITE_ACCOUNTING, ; 25 
SJC_START_ACCOUNTING, - : 2 
SJC “START zACCOUNT ING, : i 
SJC"STOP_ACCOUNT ING ; 2 
SJCZSTART_ACCOUNTING, SJC_STOP_ACCOUNTING 2 
: i 
01FC 00000 .ENTRY SNDACC_SERVICE, Save R2.R3.R4,R5,R6,R7.R8 ; 5650. a 
58 00000000" EF 9E 90002 MOVAB VA LUE E_STORAGE_BASE, R8 ; z) 
57 F440 CB dO 9000 MOVL : 5695 § 
0046 8F FA A? B1 0000E CHPH OCR?) #70 : | Z| 

08 if 00014 BGEQU : ; 
50 00048100 8F i 90016 MOVL #295168, RO > 5697 | 3 | 

56 44 a? 3C 00016 1$: MOVZWL 68(R7), R6 : 5702. : 

F206 (8 56 DO 0002 MOVL 6, DIAG_TRACE+4 : ; 
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SNDJ SSNDACC, SSNDSMB, and SSNDJBC services 16-Sep-1984 00:27:5 AX=-11 Bliss-32 V4.0-74 Page 153. 
904-000 aoe 7 90° 9557 POBCTL SRE SNDJBC.B32; . 37), 
B 13 00027 BEQL «ss 38 : 5703 
™ PA 0005¢ Serru 38° huaed 
F39C (846 F39D (846 bE 00 : MOVAL SNDACC_COUNT+1(R6], SNDACC_COUNTCR6] : 5708 
OSAO BF 0 6E 09 C 90 , movcS #0, (SP), #0, #1446, VALUETSTORAGE_BASE ; 5713, 
52 Al AF46 DO 009 F MOVL PROCESSING_ROUTINECR6], PROC_ROUTINE t 5714 
05 01 56 AF 00044 CASEW R6, #1, # + 5719 
0081 0081 90¢0 0014 00048 2$: «WORD 43-28, : 
00 0033 00050 38° $.- : 
; 5-98;- PY 
73-08" ; | 
50 00048068 8F DO 00054 3s: MOVL #295016, RO t 5724) 
04 00058 RET : 
46 A7 9F OO0SC 4$: PUSHAB 70(R7) : 5735 
7E FA A? 3C OO0SF MOVZWL <-6(R7), =-(SP) 3; 5734 
6E 00000046 8F C2 00063 SUBL2. #70, (SP) : 
01 DD O006A PUSHL # + 5735 
FBF7?. CF 03 FB 0006¢ CALLS #3, PROCESS_ONE_OPTION : 
05 50 Es 00071 BLBS STATUS, 6$ : 5736 
4 00074 RET ; 
OD AB 01 88 00075 5$: BISB2 #1, ITEM_PRESENT+13 t 5742 
7E 11 00079 6$: BRB 23$ : 5719 
51 D4 00078 7$: CLRL MASK : 5759) 
50 46 A? 9E 00070 MOVAB 70(R7), CURSOR ; 5760) 
F444 c8 50 D1 00081 8$: CMPL CURSOR, MBX_END s 5765) 
6A 1E 00086 BGEQU 22$ ; 
11 00 60 8F 00088 CASEB (CURSOR), #0, #17 : 5767. 
0037 0031 002¢ 0066 0008C 9$: .WORD 22$-9$,- ; | 
0048 0046 0041 003¢ 00094 11$-9$,- : 
0024 0024 0024 0050 0009¢ 128-98. : 
0024 0024 0024 0024 000A4 13$-9$.- : | 
005D 0056 OOOAC 14$-9$,- ; 
15$-9$.- : 
16$-9$.- : 
17$-9$,- : 
18$-9$.- : 
10$-9$.- ; | 
10$-9$.- ; 
10$-9$,- : 
10$-9$.- ; | 
10$-9$,- ; 
10$-9$,- re 
10$-9$.- F 
19$-9$,- s 
20$-9$ 3 
50 00048060 8F DO 00080 10$:  mMOVL #295008, RO ; 5769 | 
04 00087 RET ; | 
51 1 88 00088 11$:  BISB2 #1, MASK : 5771 
1 11 0008B BRB21$ ; | 
51 40 f 88 OOBD 12$:  BISB2 #64, MASK + §772 
51 4 88 000C3 13$:  BISB2 #4, MASK : §773 
6 11 00066 21$ ; 
51 8 88 000C8 14%: BISB2 #8, MASK t 5774 | 
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SNDJ SSNDACC, SSNDSMB, and SSNDJBC services 18-Sep-1984 00: 92:5 AX-1 


18 
V04- 14-Sep-1 JOBCTL. 


Liss-32 V4.0-74 Page 155 
$REIsNOUBC bso 04 age 333 


vO: 


: 4795 738 1 ROUTINE PROCESS_SNDSMB_OPTIONS(OPT,MIN,MAX)= : 
: 479 799 «1 3 
; 479 800 1 !+4¢ 3 
3; 4798 801 1! 3 
3; 4799 B06 1 ! FUNCTIONAL DESCRIPTION: ; : 
; 4800 S 1! This routine processes the options of a $SNDSMB service into internal : 
: 4801 06 1! data structures. 3 
; 480 805 1! $ 
; 480 anne 1 ! INPUT PARAMETERS: F 
; 4804 5807 1! OPT - Pointer to options. : 
; 4805 5808 1! MIN - Minimum valid option code. : 
3; 4806 2808 1! MAX - Maximum valid option code. F 
; 4807 810 1! 3 
; 4808 5811 1 =! IMPLICIT INPUTS: ; F 
; 4809 2bi¢ 7% MBX - Pointer to buffered mailbox message. : 
; 4810 5815 1! MBX_END - Pointer beyond mailbox message. : 
; 4811 5814 1! 3 
; 4812 5815 1 ! OUTPUT PARAMETERS: ; 
: 4813 5816 1! NONE ; 
3; 4814 5817 1! F 
3; 4815 5818 1 ! IMPLICIT OUTPUTS: ; 3 
; 4816 5819 1! Converted options stored in appropriate structures. ; 
: 4817 5820 1! : 
; 4818 5821 1 ! ROUTINE VALUE: ; 
; 4819 obs¢ gg Completion status. ; 
; 4820 5823 1! 3 
; 4821 5824 1 ! SIDE EFFECTS: ; 
3; 4822 5825 1! NONE F 
3; 4823 5826 1! $ 
> 4824 5827 1 !<- g 
3; 4825 5828 1 : 
: 4826 5829 2 BEGIN 3 
: 4827 5830 2 LITERAL 3 
3 4828 5831 2 K_ASCIC= 1, ; 
; 4829 5832 2 K_CHAR= $ F 
; 4830 5833 2 K_FILESIZ= . ; 
: 4831 5834 2 K_PARAMETERS= 4, 3 
: 4832 5835 2 K_SPCCNT= pF 3 
; 4833 5836 2 3 
> 4834 5837 § : 
; 4835 5838 MACRO 3 
; 4836 ™ 5839 2 PRESET _TABLE(A,B,C) = $ 
; 144 a 98 2 OWN A: VECTOR[C+1-B,BYTE,SIGNED] ALIGN(O) PSECT(CODE) PRESET(PRESET_(B, %REMAINING)) %, : 
3; 4839 5842 § PRESET_(A)(B,C] = (B - A] = C %; ; 
: 4840 5843 2 ; 
3 4841 5844 2 ; 
3: 4842 P 5845 2 PRESET_TABLE(CODE TABLE_1, SMOSK_DELETE, SMO$SK_DESTQUE, : 
> 4843 P 5846 2 SMOSK_DELETE, SJC$_DELETE FICE, ; 
> 4844 P 5847 SMO$K~BRSTPAG SJC$"FILE_BORST : 
+ 4845 P 5848 SMOSK-NOBRSTPAG, SJC$"NO FILE BURST, : 
: 4846 P 584 SMOSK_FLAGPAG, SJC$_FICE_FLAG, 3 
; 4847 P 5850 SMOSK_NOF LAGPAG, SJC$_NO_FILE_FLAG, 3 
> 4848 P 5851 SMOSK~PAGHDR, SJC$"PAGE_HEADER ; 
> 4849 p 385 SMOSK~DOUBLE . SJCS"DOUBCE SPACE, : 
; 4850 P 585 SMOSK-NOFEED, SJC$"NO_PAGINATE, : 
; 4851 P 5854 SMOS$K_PAGCNT, SJC$ LAST_PAGE, é 
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14-Sep-19 

SMOSK_COPIES S/CS_FILE_COPIES, 

SMOSK"FILESI2, : 

SMOSK-DESTQUE, SJC$_DESTINATION_QUEUE); 
PRESET _TABLE(SIZE TABLE_1, SMOSK DELETE, SMOSK_DESTQUE, 

SMO$K_PAGUNT, - 

SMOSK-COPIES F 

SMOSK-FILESIZ, -"K_FILESIZ, 

SMOSK™DESTQUE, = KTASCIC); 
PRESET_TABLE(CODE_TABLE_2, SMOSK_RLSTIM, SMOSK_NOWSEXTNT, 

SMO$K_RLSTIM, SJCS_AFTER_TIME, 

SMOSK—~HOLD SJCS-HOLD 

SMOSK—JOBPRI, SJCS-PRIORITY 

SMOSK—JOBCOPY SJC$-JOB COPIES, 

SMOSK~FORMTYPE, SJCS-FORA_ NUMBER, 

SMOSK-LOWER SJCS-LOWERCASE, 

SMOSK PARAMS SJCS"PARAMETER.1, 

SMO$K—JOBNAME , SJC$~JOB_NAME, 

SMOSK_NOLOWER, SJC$_NO_COWERCASE, 

SMOSK~CPULIM, SJCS-CPO_LIMIT, 

SMOSK_NOCPULM, SJC$_NO_CPU_LIMIT, 

SMOSK~WSQUOTA, SJCS_WSQUOTA, 

SMOSK~NOWSQUO, SJC$S-NO_WSQUOTA, 

SMOSK_WSDEFLT, SJC$_WSBEFAULT, 

SMOSK~NOWSDFT, SJC$S-NO_WSDEFAULT 

SMOSK~DQCHAR, SJCS~CHARACTERISTIC_NUMBER, 

SMOSK~LOGF NAM, SJC$"LOG_SPECIFICATION, 

SMOSK~LOGQNAM, SJC$~LOG-QUEUE , 

SMOSK-KEEPLOG, SJC$-NO_COG_DELETE, 

SMOSK-NOSPOOL, SJC$"NO-LOG~ SPOOL, 

SMO$K_NOKEEPLOG, SJC$_LOG_DECETE, 

SMO$K—NOLOG, SJC$~NO_COG_SPECIFICATION, 

SMOSK_NOTIFY, SJCS_NOTIFY 

SMOSK~NONOTFY, SJC$S-NO_NOTIFY, 

SMOSK_WSEXTNT, SJC$_WSEXTENT 

SMOSK_NOWSEXTNT, SJC$"NO_WSEXTENT); 
PRESET_TABLE(SIZE_TABLE_2, SMOSK_RLSTIM, SMOSK_NOWSEXTNT, 

SMOSK_RLSTIM, 8, 

SMOSK—JOBPRI , 1; 

SMOSK~JOBCOPY eo 

SMOSK—FORMTYPE , 1; 

SMOSK~PARAMS -"K_PARAMETERS, 

SMOSK~ JOBNAME , - KTASCIC, 

SMOSK~CPULIM 4, 

MOSK~WSQUOTA, 2, 

SMOSK~WSDEFLT. s 

SMOSK~DQCHAR, -"K_CHAR 

SMOSK~LOGFNAM, - KTASCIC, 

SMOSK~LOGQNAM, - KTASCIC; 

SMOSK~WSEXTNT, 2); 


PRESET_TABLE(CODE_TABLE_3, SMOSK_CURFORM, SMOSK_NODISWAP, 
SMO$K_CURFORM, 5JC$_FORM_NUMBER, 
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N 6 
SND JBC SSNDACC, SSNDSMB, and $SNDJBC services 16-Sep-1984 00:37 53 
v04-000 14-Sep-1984 12:57:15 
: 4909 P 5912 SMOSK_GENPRT SJC$_GENERIC_SELECTION 
: 4910 P 591 SMOSK-NOGENPRT, SJCS"NO_GENERIC_SELECTION, 
: 4911 P 5914 SMOS$K~DETJOB, SJC$S"BATCH 
: 491 P 5915 MOSK~GENDEV SJCS-GENERIC_QUEUE 
: 491 P 916 SMOSK “NOGENDEV, SUCS"NO_GENERIC_QUEUE, 
: 4914 P 591 SMOSK—~DEFB SJCS-FICE BURST 
: 4915 P 5918 SMOSK-NODEFBRST, SJC$"NO_FILE BURST, 
: 4916 P 5919 SMOSK—~DEFFL SJCS-FICE_FLAG, 
: 4917 P 5920 SMOSK-~NODEFFLAG, SJCS$"NO FILE FLAG, 
: 4918 P 5921 SMOSK-~TRMD SJCS- TERMINAL, 
: 4919 p 59 : SMOSK-NOTRMDEV, SUCSINO_ TERMINAL, 
> 4920 pP 59 MO$K~JOBLIM, SJC$~JOB_LIMIT 
: 4921 P 5924 SMOSK-INIPRI, SJCS$"BASE PRIORITY, 
: 492 P 5925 SMOSK-DISWAP, SJC$~NO_S@AP 
: 492 P 5926 SMOSK-MCPULM, SJC$-CPO_LIMIT, 
3 4924 P 5927 SMO$K_NOMCPULM, SJC$"NO CPU_LIMIT, 
3; 4925 P 5928 2 SMOSK_DCPULM, SJC$_CPO_DEFAULT, 
> 4926 P 3929 ; SMOSK-NODCPULM, SJC$"NO_CPU_DEFAULT, 
3 4927 P 5930 SMO$K_WSQU SJC$_WSGUOTA, 
: 4928 Pp 5931 2 SMOSK~NOWSQUTA, SJC$"NO_WSQUOTA, 
> 4929 P 5932 2 SMOSK-WSDFLT, SuC$ -WSDE FAULT 
: 4930 Pp 5933 2 SMOSK-NOWSDFLT, SJC$-NO 
> 4931 Pp 5934 2 SMOSK= =CURDQCHAR, SUCS~ ~CORRACTERTSTIC _NUMBER, 
> 4932 P 5935 2 “SMB SJC$~PROCESSOR, 
> 4933 P 5936 2 SMOSK-USKTANT SJCS"WSEXTENT 
> 4934 P 5937 2 SMOSKNOWSXTNT, SJC$"NO_WSEXTENT, 
: 4935 3938 é SMO$K—NODI SWAP, SJCS~SWAP) ; 
: 4937 Pp 5940 2 PRESET ~TABLE (SIZE TABLE _3. SMOSK_CURFORM, SMOSK_NODISWAP, 
> 4938 P 5941 2 URFORM r 
: 4939 P 5942 2 SK- GOBLIN’ 1, 
: 4940 P 5943 2 SMOSK-INIPRI, 1; 
> 4941 P 5944 2 SMOSK~MCPULM, e 
> 4942 P5945 2 SMOSK~DCPULM, * 
> 4943 P 5946 2 SMOSK—WSQUTA, 2. 
> 4944 P 5947 2 SMOSK~WSDFLT Z. 
+ 4945 P 5948 2 SMOSK~ CURDQCHAR, -"K_CHAR, 
> 4946 P 5949 2 SMOSK~SMBNAME , - KTASCIC, 
> 4947 5950 2 SMOSK—WSXTANT, 2); 
> 4948 5951 2 
: 4949 3958 2 
: 4950 P 5953 2 PRESET_TABLE(CODE_TABLE_4, SMOSK NEXT JOB SHOSK _SPCCNT, 
> 4951 P 5954 SMO XTJOB SJC$_NEXT 5208 
: 495 P 5955 SMOSK~ ToPOr ILE, atts "ep FILE 
; 4993 3996 é SMOSK~SPCCNT SIC$~ OP OF of PAGED : 
: 4955 P 5958 2 PRESET_TABLE(SIZE TABLE_4, SMOSK_NEXTJOB. nose _SPCCNT, 
: 4956 5959 2 SMO$SK_SPCTNT, = K_SPCCNT 
: 4957 5960 
: 4958 5961 
> 4959 P 3968 PRESET_ TABLE (CODE TABLE_5, SMOSK_REQUEUE, SMOSK_REQPRIO, 
> 4960 P 596 SMOSK_REQUEUE, SJC$_REQUEUE 
+ 6961 P 5964 ett “REQDEST. SJC$ “DESTINATION QUEUE, 
: 496 3965 SMOSK-~REQPRIO, SUCSPRIORITY 
+ 6964 P 2069 PRESET_TABLE(SIZE_TABLE_5, SMO$K_REQUEUE iene Samm 
+ 4965 P 5968 SMOSK_REQDEST, = K ASCIC, 
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SND JBC SSNDACC, SSNDSMB, and S$SNDJBC services sone} a8 00:92:? AX-11 Bliss-32 V4.0-742 Page 158. 
v04=000 Sep-1984 12:37:1 JOBCTL.SRC SNOUBC: B32;1 (38) 

: 4966 969 SMOSK_REQPRIO, | eee 

: 4967 970 

: 4968 971 

: 4969 3976 LOCAL | 

: 4970 597 REF BBLOCK; - ! Cursor to options 

: 4971 3974 

: 497 975 

: 497 976 P = .OPT; 

: 4974 97 WHILE .P LSSA .MBX_END DO 

+ 4975 978 BEGIN 

> 497 979 IND 

: 497 3980 OPTION_LOWER = UPLIT BYTE ¢ 

: 4978 981 SMOSK DELETE, . 

: 4979 98¢ SMOSK-RLSTIM, 

> 4980 98 SMOSK—CURFORM, 

> 4981 984 SMOSK~NEXTJOB 

: 498 5985 SMOSK “REQUEUES : 

: 498 5986 VECTORC BYTE], 

> 46984 5987 | 
: 4985 5988 OPTION_UPPER = UPLIT BYTE ( 

> 4986 5989 MOSK_DESTQUE, 

> 4987 5990 : KNOWSEXTNT, 

> 4988 5991 SMOSK =NODISWAP, | 
> 4989 299¢ ; SMOSK~ SPC 

: 4990 599 SMOSK “REGPRIOD : 

> 4991 5994 VECTORL, BYTE), 

: 499 5995 

: 499 5996 OPTION_CODE_TABLE = UPLIT ( 

+ 46994 5997 3 CODE_TABLE_1, 

: 4995 5998 CODE -TABLE~¢, | 
> 4996 5999 CODE-TABLE—3, 

: 7 6000 CODE ~ TABLE ~4 

: 4998 6001 CODE-TABLE~55: 
: 4 600 VECTOR, 

; 5000 600 

: 5001 6004 ; OPTION_SIZE_TABLE = UPLIT ( 
: 5002 6005 SIZE_TABLE_1, 

: 5003 600 SIZECTABLE-¢, 

: 5004 600 SIZE-TABLE—3, | 
: 5005 6008 SIZE~ TABLE ~4 

: 5006 6009 SIZE~TABLE~55 | 
; 5007 6010 VECTOR; 

: 5008 6011 

3 3008 601 

: 5010 601 LOCAL 

: 011 6014 : BYTE, 

: og 6015 CODE_TABLE: REF VECTOR ORE BY 

; 301 6016 SIZE~TABLE: REF VECTO BYTE. Jer 6NeD). 

: 5014 6017 CODE 

: 5015 6018 VALUE _SIZE 

: 5016 6019 VALUE ~ADDRESS: REF BBLOCK, 

> 5017 6020 VALUE~ TEMPORARY : BBLOCK(81, 

; 5018 6021 STATUS; 

; 5019 6 § 

; 2020 60 

> 5021 6024 0 = .PL0,0,8,0): 

: 5022 6025 P= ip 41: 
“Sipe a ARR a0 ne ON ER a5 0S A ar ois aaiog ’ ‘sal 


<u“ 
oz 


' 


32 

VMI Ss 
OOCOCOCOCOCOCOCOO 1 
PORAAAOOAOO 
lolololololololololo) 

CNAME WN OO OONO 


oa 
oO 


PAR WN —OO09 NOU ed 3a 


lola Pe leolelelelolelelelolo) 
ak et at et eee kk 
CUES WI—O0O~N 

o 

oO 

= 

“ 


RR 


fo jejojeleloleleleololo) 
DADA ASSIS 


sB5 


SSF 


S&S 


Be Se Be Se Oe Oe Oe Oe Oe Oe Se Se Oe Ge Oe Oe Be Se Ge Be Se Se SH Gs Se HSH Se Ss Ss Oe Se Se Se BH OH Se Se SH SF Se SH Se Se Oe Se SHOE Oe Oe SHS Ss Se ee Sees 
rw twee leew el al hah al shal Mabel ah ah ah ah sh db Ab Ab db Ab Ab ab Ab Ab ab ah ah ah ah ah ah ah ah ah ah ahah al eal al eal ah al al Mahal ah al 
COOONOULSWN—OOOn 

o 

oO 

uw 

~ 
DDG TA A ADA TTI HO AO AO TTT BB AAAI NAIA & UTD B® BB 


ooooocooo°oo 
SANS 
CONOUS WN —OO® 
aon 
oo 
~~ 
w 


—————__-—-—-—-—- 


SSNDACC, SSNDSMB, and SSNDJBC services 


JOBCTL. 
L O THEN EXITLOOP; 
SU .MIN OR .O GTRU .MAX THEN RETURN JBCE_INVITMCOD; 
DECR N FROM 4 710 0 DO 
O GTRU .OPTION_UPPER N} THEN RETURN JBC$_INVITMCOD; 
EQU .OPTION-LOWERL. 
ABLE = OPTION. CODE_TABLEC.NJ; 
LE = ON esizes! ABLEL.NJ; 
os OPTION, Masts: .NJ; 


VALUE_SIZE = “site _TABLEC.0); 
VALUE_ADDR ESS "= 


VALUE IEMPORARYLO, 4 32,0] = VALUE_TEMPORARY[4,0,32,0] = 0; 
IF .VALUE_SIZE NEQ 6 
THEN 

BEGIN 

IF .VALUE_SIZE LSS 0 

THEN 


BEGIN 
CASE =| -VALUE_SIZE FROM K_ASCIC TO K_SPCCNT OF 


HEN RETURN JBC$_INVMSGBUF ; 


TRA .MBX_END THEN RETURN JBC$_INVMSGBUF ; 


CK_CHAR]: 
ee 
GTRA .MBX =” - 16 THEN were ‘ 


Rove S(HREF Cie)” . VALUE_CHARACTER 
ae SIZE = 0; 


JBC$_IN ae tee 
STICS; 


(KF ILESIZ: 
P GTRA .MBX_END - 4 THEN RETURN JBC$_INVMSGBUF ; 


ILES 
BEG! 
IF . 
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V o 
71 JOBCTL.SRCJSNDJBC .B32;1 


P= ,P + ae eens 
VALUE_SIZE = 0; 
END; 

CK_PARAMETERS): 
BEGIN 


LOCAL 
STATUS; ' Status return 


WHILE TRUE DO 
GIN 


P GEQA .MBX ENP THEN RETURN JBC$_INVMSGBUF ; 
= .P[0,0,8,0); 


QL 0 THEN EXITLOOP; 
C$_PARAMETER_8 THEN RETURN JBC$_INVPARVAL; 


EJ = TRU 
EQ 1 OR CHSRCHAR(.P) NEQ %X'FF* 


te ee DY 
pe i Re Bs Be] >mmMm 
zocm 
o° 


a 
izr =m YPVOrYrU 


D; 

CODE = .CODE + 1; 

P= .P + ,VALUE_SIZE; 
END; 

END; 


CK_SPCCNTJ: 
BEGIN 


IF .P GTRA .MBX_END = 2 THEN RETURN JBC$_INVMSGBUF ; 
VALUE TEMPORARY = ,VALUE_ADDRESS(0,0,16,7]); 


VALUE_SIZE = 4; 
VALUEZADDRESS = VALUE, TEMPORARY: 


TES; 
END 
BEGIN 
IF .P GTRA .MBX_END = .VALUE_SIZE THEN RETURN JBC$_INVMSGBUF ; 
P = .P + ,VALUE-SIZE; 
IF .VALUE_SIZE CSS 4 
THEN EGIN 
VALUE _TEMPORARY = .VALUE_ADDRESSCO, 0, .VALUE_SIZE*8, 0); 
VALUE ADDRESS = VALUE_TEMPORARY; 
END; 
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SSNDACC, SSNDSMB, and $SNDJBC services 1bese -1986 00:27:53 AX-11 Bliss-32 V4.0-74 p 1 
04-000 a8ep-1984 a ae JOBCTL. SRC Sib uNe O3509 age 18) 
; 51 7 6140 
: $138 6141 IF .VALUE_SIZE NEQ 0 
: 5139 6148 THEN 
; 1ey eide ¢ Sa tite = PROCESS ONE_OPTION(.CCDE, .VALUE_SIZE, .VALUE_ADDRESS) 
: 2148 6145 & IF NOT .STATUS TREN RETURN .STATUS; ~ pe S : ; 
: 514 6146 END; 
: 5144 614 END; 
: 5145 6148 2 SS$_NORMAL 
: 5146 6149 1 END? 

1A 00 23 


5B 76 1C 71 26 24 22 20 18 0236D CODE_TABLE 1: 
BYTE ar 34, 36, 38, 113, 28, 118, 91, 35, - ; 


0 Z 
0O# 02379 SIZE_TABLE_1: 
-BYTE OC8) ; 
FF FD 01 02 02381 -BYTE 2, 1, -3, -1 ; 
98 97 9C 9B 16 15 67 4F 77 66 37 48 82 47 03 02385 CODE_TABLE 2: 
BYTE 3, 71, -126, 75, 55, 102, 119, 79, 103, - ; 
9A 99 6D 6C 63 SF 65 60 61 62 OD 02394 21, 28, -101, -100,'-105; -104, 18, 98° - : 
97, 96, 101, 95, 99, 108. 109, -108, -f02 : 
08 O0239F SIZE_TABLE 2: 
-BYTE 8 3 
00 023a0 “BYTE 0 ; 
01 01 01 O23A1 “BYTE 1, 1, 1 : 
00 023A4 "BYTE 0 : 
FF FC O23A5 BYTE -4, -1 3 
00 023A7 ‘BYTE 0 : 
04 023A8 "BYTE 4 ; 
00 023A9 ‘BYTE 0 ; 
02 O23AA ‘BYTE 2 : 
00 02348 “BYTE 0 F 
02 O23AC “BYTE 2 ; 
00 023AD “BYTE 0 : 
FF FF FE OQ23AE -BYTE -2, -1, -1 3 
00# 02381 “BYTE OC6) : 
02 02387 “BYTE 2 : 
02388 "BLKB 1 
92 07 4E 94 93 26 24 22 20 43 42 08 45 44 37 02389 CODE_TABLE 3: 
-BYTE 55, 68, 69, 8, 66, 67, 32, 34, 36, 38, - ; 
91 9A 99 83 OD 98 97 9C 9B 14 13 16 15 023¢8 -169, -108; 78, 7. -110, 1. 50, 19, 30, - ; 
=101. 190, -165, -104, 13, -125, -103, - : 
01 02305 SIZE_TABLE 3: 
-—BYTE 1 3 
00# 02306 “BYTE 011) ; 
01 01 02361 “BYTE 1, 1 : 
00 02363 “BYTE 0 : 
04 02 £4 “BYTE 4 ; 
00 O23E5 “BYTE 0 : 
04 02 ES “BYTE 4 : 
00 7 BYTE : 
3 E8& BYTE r 
0 E9 BYTE : 
02 O23EA “BYTE : 


f 7 
SNDJBC SSNDACC, SSNDSMB, and SSNDJBC services 16-Sep-1984 00:27:5 AX-11 BL -32 V4.0-742 
v04=060 18288-1382 93: $5 3 JOBCTL.SRCISNDJBC. B32;1 
00 EB .BYTE 0 
02 FF FE EC ‘BYTE 2, =1, 2 
EF "BLKB 2 
88 95 69 F1 CODE_TABLE 4: 
-BYTE 105, -107, -120 
OO# O23F4 SIZE_TABLE 4: 
BYTE of2] 
FB 02366 “BYTE = 
82 1A 89 F7 CODE_TABLE 5: 
“BYTE 119, 26, -126 
00 O23FA SIZE _TABLE 5: 
BYTE 
01 FF O23FB “BYTE =1,.1 
70 60 40 20 01 O23FD P.AAC: ‘BYTE 1, 32, 64, 96, 112 
72 62 5B 39 OC 02402 P-AAD: “BYTE 12, 57, 91, 98, 114 
00000000" 00000000' 00000000' 00000000' 00000000" 02408 P.AAE: ADDRESS CODE_TABLE_1, Gove TABLE 
CODE _TABLE 3 c ETABLE 7? “cove _TABLE_5 
00000000" 00000000" 00000000" 00000000" 00000000" 0241C P.AAF: . ADDRESS SIZE_TA ABL E “hy ABL 
SIZE TABLE  * size TABLE. z, SIZE _TABLE_5 
OPTION _LOWER= P. AAC 
PTION_ UPPER= P.AAD 
OPTION-CODE_TABLE= P.AAE 
OPTION-SIZE-TABLE= P.AAF 


OFFC 00000 PROCESS_SNDSMB_OPTIONS: 
WORD ~ Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 


5B 00000000' EF 9E 00002 MOVAB MBX_END, R11 
5E 08 C2 00009 SUBL2 #8, SP 
57 04 AC dO 0000C MOVL  oPTf, P 
58 6B DO 00010 1$: MOVL §MBX_END, R8 
58 57 D1 00013 CMPL sé, RB 
03 1F 00016 BLSSU. 3$ 
0142 31 00018 2$: BRW 33$ 
51 87 90 0001B 3$: MOVB (P)+, O 
FB 13 OOO1E BEQL 
08 Ac 51 08 00 ED 00020 CMPZ7V #0, #8, 0, MIN 
12 1F 00026 BLSSU 
oc aC 51 08 00 ED 00028 CMPZV #0, #8, 0, MAX 
OA 1A O00¢¢ BGTRU 5$ 
59 04 D0 000 MOVL #4, N 
9A AF4O 51 91 9003 4$: CMPB sO, OP TION_UPPERLNJ 
08 18 000 BLEQU 
50 00048060 8F DO 0003A S$: MOVL #295008, RO 
04 00041 RET 
86 AF4O 51 91 9004¢ 6$: CMPB Q OPTION_LOWERCNJ 
iF 1F 0004 BLssu 7$ 
53 8B AF4O DO 00049 MOVL § OPTION_CODE_TABLECN ODE _TABLE 
52 9A AF4O DO uF MOVL. OPTION7SIZE~ TaBLeL NJ. SIZE-TABLE 
51 FF75 Fad Be 05 SUBB2 OPTION“LOWERL 
9 1 59 BRB $ 
D5 0 F4 28 7$: SOBGEQ N. 4$ 
50 51 OA F 8$: MOVZBL RO 
SA 6043 9A 0006 MOVZBL Peo) CODE_TABLEJ, CODE 
00 OsBc «CB SA E2 00065 BBSS CODE, ITEM_PRESENT, 9$ 


7 
SSNDACC, SSNDSMB, and SSNDJBC services 1$-sep-19 4 27:5 AX-11 Bliss-32 V4.0-74 Page 163 
at 7 90: 9557 JOBCTL.SRCISNDJBC B32; . (383 
36 6042 98 0 68 9S: CVTBL (RO)CSIZE_TABLEJ, VALUE. SIZE 7 6048 
9 5 bo of MOVL P, VALUE_ADDRESS + 6049 
ge 0072 CLRO -VALUE_ TEMPORARY + 6050 
6 D 0 74 TSTL ALUE-SIZE + 6051 
3 1 076 BEQL 0$ ; 
0 19 007 BLSS 0$ + 6054 
OOA2 31 OOO7A W 26$ : 
‘ 34 83 EF ooom CASE Mgt Sy ge’ Agen 
004A 00SA 0026 000A 00084 11$: WORD 126-118," : 
008A 0008C 15$-11$.- : 
198-118. : 
19$-11$,- : 
25$-11$ : 
58 57 D1 OOO8E 128: CMPL =e P,_-RB + 6063 
03 12 00091 BNEQ 14$ : 
0092 31 00093 13$: BRW 27$ : 
S6 87 9A 00096 148: MOV ZBL (P)+, VALUE_SIZE > 6064. 
51 57 56 1 00099 ADDL3 VALUE_SIZE,~P, R1 + 6066 | 
58 51 D1 0009D CMPL = R1, RB : F 
F1 1A OOOAO BGTRU 138 ; 
59 57 D0 O00A2 MOVL.  P, VALUE_ADDRESS + 6067 | 
57 56 CO OO0A ADDL2 VALUE_SIZE, P ; 6068 | 
22 11 0008 BRB 18$ + 6057 
50 FO AB 9E OOOAA 15S: MOVAB -16(R8), RO : 6074. 
50 57 D1 OOOAE CMPL = P,_-RO : 
75 1A 00081 BGTRU 27S : | 
0cos8 CB 67 10 28 00083 MOVC3 #16, (P), VALUE_CHARACTERISTICS > 6075 
57 51 DO 00089 MOVL 1, R7 : 
0c 11 0008¢ BRB 17§ + 6076. 
50 FC AS 9E OOOBE 16$:  MOVAB -4(R8), RO + 6082 | 
50 57 01 900Ce CMPL = wP,_-RO : 
61 1A 000C BGTRU 27S ; 
57 56 CO 000C7 ADDL2 VALUE_SIZE, P > 6083 
56 D4 OOOCA 17S: CLRL VALUE SIZE > 6084 | 
79 11 OOOCC 18$: BRB : 6057 
68 57 D1 OOOCE 19$:  CMPL  P, MBX_END : 6095 
55 1€ 00001 BGEQU : 
56 87 9A 00003 MOVZBL (P)+, VALUE_SIZE : 6096 | 
6F 13 90006 20$:  BEQL : 6098 
QO00007E «S&F 5A D1 0000 CMPL CODE, #126 : 6099 | 
08 1B O00DF BLEQU F 
50 00048110 8F DO O00E1 MOVL #295184, RO ; 
04 OOES RET : 
00 OBBC CB 5A E2 O00E9 18: BBSS CODE, ITEM_PRESENT, 22$ + 610 
01 56 D1 OOOEF 228: CMPL  VALUE_SIZE> #1 : 610 
06 12 000F2 BNEG 2 ; 
FF OF 67 91 O00F4 CMPBs«é(P), «#255 ; | 
OD 13 000F8 BEQL ; | 
7E 56 7D OOOFA 23$:  MOVO VALUE_SIZE, -(SP) > 6105. 
5A DD OOOFD PUSHL : 
FOAG OCF 03 FB OOFF CALLS #3, PROCESS _ONE_OPTION ; | 
59 0 £9 00104 BLBC STATUS, 34$ > 6106 
A 06 0107 24$ INCL. CODE + 6108. 
57 6 CO 00109 ADDL2 VALUE_SIZE, P > 6109 | 
CO 11 0010¢ BRB > 6093 
50 FE AS 9E OO10E 25$:  MOVAB -2(R8), RO > 6116. 


Bs 
SSNDACC, SSNDSMB, and SSNDJBC services 16-Sep-1984 AX-11 Bliss-32 V4.0-74 Page 164 SNC 
14-Sep 71382 90: $537 JOBCTL.SRCJSNDJBC.B32; . 38} v04 
50 57 01 0011 CMPL ~=séP,_-RO : 
11 1A 11 BGTRU 27$ : 
$6 9 : 11 CVTWL  (VALUE_ADDRESS), VALUE_TEMPORARY + 6117 
g CO OO11A ADDL2 #2, P + 6118 
jf 011D BRB 29$ + 6119 
50 58 : C3 OO11F 26$: SUBL3 VALUE SIZE. R8, RO + 6128 | 
. se Rss aie Sas pes 
50 00048100 gf v0 091 : 278: MOVL #295168, RO F | 
57 56 CO 001 9 28$:  ADDL2 VALUE_SIZE, + 6129 
04 56 (01 01 CMPL sos SIZE, 4G + 6130 
OF 18 001 é BGEG $ ; 
50 56 03 78 001 ASHL ; VALUE SIZE, RO + 6133 
6€ 69 50 00 EF 0013C EXTZV 90. 0, (VALUE. ADDRESS), VALUE_TEMPORARY : 
56 04 DO 00141 298:  MOVL #4. VALU > 6134 
59 6E i 00144 MOVAB VALUE_TEMPORARY, VALUE_ADDRESS + 6135 
36 D5 00147 30$: TST VALUE~SIZE + 6141 
03 12 00149 BNE 32$ ; 
FEC2 31 00148 31$: BRW 1$ : | 
0240 8F 8B OO14E 32$:  PUSHR #*M<R6,R9> + 6144) 
5A DD 0015 PUSHL CODE : 
FOGF OCF 03 FB 00154 CALLS #3, PROCESS _ONE_OPTION : 
EF 50 £8 00159 BLBS STATUS, 3187 > 6145 | 
04 0015¢ RET ; 
50 01 DO 0015D 33$:  MOVL , RO + 6149) 
04 00160 34$: _— RET ; 


; Routine Size: 353 bytes, Routine Base: CODE + 2430 
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GLOBAL ROUTINE SNDSMB_SERVICE= 
'oe 
FUNCTIONAL DESCRIPTION: 
his routine processes the message type: 
MSG$_SNDSMB send to symbiont manager 
by dispatching to a request-specific routine. 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 
MBX - Pointer to buffered mailbox message. 
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OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

os VALUE : 


} 
ompletion status to be returned to requestor. 
SIDE EFFECTS: 
NONE 
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BEGIN 
OWN 
SEARCH_REQUIRED: BITVECTORCMAX_SNDSMB_FUNC +1) 
PSECT(CODE) PRESET( | 
CSMR$K_ABORTJ= TRUE, 
SMRSK-ALTERJ= TRUE. 
RS$K~CREJOBJ= TRUE. 
SMRSK~ENTERJ= TRUE, 
SMRSK~PAUSE J= TRUE. 
8 SMRSK~RELEASEJ= TRUE. 
8 SMRSK—~RMVJOBJ= TRUE. 
9 SMRSK~STARTJ= TRUE. 
9 SMRSK~STOPJ= TRUE 
3 SMRSK~SYNCJOBJ= TRUES, 
9 QUEVE_PRESENT: BITVECTORCMAX_SNDSMB_FUNC+1) 
9 PSECT(CODE) PRESET ( 
9 SMRSK_ABORT )= TRUE, 
9 SMRSK~ALTERJ= TRUE. 
1 9 MRSK~ RE JOB) = TRUE. 
1 9 SMRSK-DELETE - TRUE. 
1 0 SMRSK~ENTERJ= TRUE, 
1 0 SMRSK~INITIALJ= TRUE. 
0 SMRSK~PAUSE J= TRUE, 
0 SMRSK~RELEASE J= TRUE, 
0 SMRSK~RMVJOBJ= TRUE, 
2 0 SMRSK~STARTJ= TRUE. 
2 0 SMRSK~STOPJ= TRUE, 
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SNDJ SSNDACC, SSNDSMB, and SSNDJBC services 16-Se AX-11 Bliss-32 V4.0-74 Pa 7 
904-800 14- Haat 99: $537 JOBCTL.SR ROIS SNOUBC C.B32; ge 48) 
: ¢ $ rt: 3 TRACEC1] = .MBXCACMS$W_USERREQ); ! weeee diagnostic info t## 
: $264 626 
; 5265 6 8 ore artnet -UseRneg] tf N_SNDSMB_FUNC 
; i$ 6268 OR MBX CACM$W-USERREQ aL: X=SNDSMB_ FUNC 
; 526 6269 
; 5268 6270 EN RUE 
} 4 6271 ELSE 
; 4 e % »PROCESSING_ROUTINEC.MBXCACM$W_USERREQ]) EQL 0 
; 2 re 6274 EN 
; 2 7 6275 RETURN JBC$_INVFUNCOD; 
: 74 6 1 
3 2 75 627 
: 2 re ? A } Ensure that the message contains all required fields. 
; 3678 6 80 iF {MBXCACMSW_MSGLEN] LSSU .MINIMUM_LENGTHE .MBXCACMS$W_USERREQ]J 
Py | 
: ee ? Hf RETURN JBC$_INVMSGBUF ; 
; 3282 6 84 SNDSMB_COUNTC .MBXCACM$W_USERREQ]] = .SNDSMB_COUNTC .MBXCACMSW_USERREQ]) + 1; 
; 358c 6286 
: 2552 ° rt Ensure that the queue file is open, and lock it. 
: 5287 6289 ir . QUEUE ito IFI1] EQL O THEN RETURN JBC$_JOBQUEDIS; 
: 5288 6290 LOCK QUEVE_FILE() 
a Bw 
; 34 ? + : Set up for parameter preprocessing. 
; 3598 6295 § CHSFILL(O, VALUE_STORAGE_END = VALUE STORAGE BASE, VALUE_STORAGE_BASE); 
: 5294 6296 PROC _ROUTINE = -PROCESSING_ROUTINEC .ABXCACMSO _USERREQ]J;~ 
3596 $598 
3 4444 ? 44 If the request has a queue name, preprocess it into static storage. 
: 5999 6301 iF .QUEUE_PRESENTC .MBXCACMS$W_USERREQ)) | 
; 5300 O36 THEN | 
; 5301 630 BEGIN 
3 o308 6304 LOCAL 
; 530 6305 STATUS; | 
3; 5304 6306 
3; 5305 6307 STATUS = PROCESS_ONE_OPTION( 
3 : 6308 SJC$_QUEU 
: 5307 6309 CHSRCHAR (MBXCACMS$T QUEUE_1}), 
3; 5308 6310 MBXCACM$T_QUEU a 
; 5309 6311 IF wot STATUS THEN” RETURN . STATUS; 
Acc Sp ieee 
; 3312 6314 
; aei2 o3i2 If the request requires a queve search, search for the queue. 
; $315 e317 iF . SEARCH_REQUIRED( .MBXCACMS$W_USERREQ)) 
; 3319 ett] If NOT FIND_QUEUE(VALUE_QUEUE; SQX_N, SQE, SMQ_N, SMQ) 
; 5318 6320 THEN 


<u“ 


z 
PUPPETS UST Ss 


Be Be Be Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Fe Se Ge Fe Fe Ge Ge Ge Se Se Se Se Ge Se Se Se SH Se Se Se Se Se Se Se Se Se Se Se Se Se Seer Se eae 


~ 


i] 


7 

SSNDACC, SSNDSMB, and S$SNDJBC services 1b. $ep-1984 00:27:5 AX-11 Bliss-32 V4.0-74 Page 168 
v04 12-08-1382 99:95? JOBCTL. SRCISNDJBC_B32: 9° (39) 
3 19 6 RETURN JBC$_NOSUCHQUE; 
: $321 4 
: § ? ¢ } Preprocess the remaining parameters into static storage. 
; 2 6 § CASE , -MEXCACMSW_USERREQ] FROM MIN_SNDSMB_FUNC TO MAX_SNDSMB_FUNC OF 
r} § 6328 
3 6329 
; g 6330 CSMR$K_ABORT): 
3 9 6331 N 
3 0 6 ¢ IF .SMQCSMQ$V_BATCH) 
3 1 6 EN 
3; 5 ¢ 6334 4 BEGIN 
; 533 6335 4 VALUE NUMBER = .MBXCACMSW ENTRY NUMBER]; 
: 53 63 6 4 ITEM_ PRESENTE SUES. ENTRY _NUMBER]~= TRUE; 
; 5335 6337 4 END 
; 53 6338 3 
: 5337 6339 4 BEGIN 
; 5338 6340 4 LOCAL 
; 5339 6341 & STATUS; 
; 5340 6346 4 
: 5341 6343 4 STATUS = PROCESS_SNDSMB_OPTIONS( 
3 rt ok 6344 4 MBXCACMS$T QUE OPT 
: 534 6345 4 SMOSK_REQUEUE, SMO$K_REQPRIO); 
+ 5344 6346 4 IF NOT .STATUS THEN RETURN .STATUS; 
; 5345 6347 3 END; 
3; 5346 6348 2 END; 
3; 5347 6349 2 
: 5348 6350 
3 5349 6351 CSMR$K_ADDFILJ: 
; 5350 $326 BEGIN 
3 5351 635 LOCAL 
; 2338 6354 STATUS_1; 
s 333 6355 
: 5354 6356 CHSMOVE ( 
3 5355 6357 XZALLOCATION( VALUE FILE. IDENTIFICATION), 
3; 5356 6358 mK EN DLA CM$T_INT-FID 
: 5357 6359 ALOE FILE IDENTIFICATION 
3; 5358 6360 VALUE ite SPECIFICATIONESOSC. “b LENGTH] = 
; 5359 6361 35 DCACM$W_INT_RSLJ; 
; 5360 6362 3 VALUE FICE SPECTFICATIONESDSc A_POINTER) = 
; 5361 6363 3 X_ENBCACM$SW_INT_RSL] - [MBX TENDEACISW. INT_RSLI; 
; 2366 6364 ; STATUS _T = PROCESS. SNDSMB_OPTIONS 
; 6365 MBRCACHST ADF _OPT), 
3 5364 6366 ; SMOSK DELETE. “SMO$K_FILESIZ); 
3; 5365 6367 IF NOT STATUS THEN RETURN “STATUS. 1; 
: 5366 6368 END; 
3; 5367 6369 
3; 5368 6370 
3; 5369 6371 CSMRSK_ALTER): 
; 5370 oa7¢ BEGIN 
3; $371 $37 LOCAL 
; 2378 6374 STATUS; 
3 23) 6375 
3 5374 6376 VALUE ENTRY NUMBER = .MBXCACMSW ENTRY NUMBER]; 
: 5375 6377 STATUS = PROCESS _SNDSMB_OPTIONST 
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SND SSNDACC, SSNDSMB, and SSNDJBC services 16-Sep “19 4 09: 33: :5 AX-11 Bliss-32 V4.0-742 
v04 14-Sep-1984 7:1 JOBCTL.SRCISNDJBC.B32;1 
: 637 XCACM$T_QUB_0 
; 2 6 8 Ruy reESToues lags NOWSEXTNT) 
: 5 6380 IF N atys THEN RETURN . STATUS: 
3 5 6381 ITEM Olaézent SJCS_ENTRY_NUMBER] = TRUE; 
35 ° ¢ END; ~ 
; 2 B¢ 6384 
: 538 6385 CSMRS$K_CREJOB): 
> 5384 6386 BEGIN 
: 5385 6387 LOCAL 
: 5386 6388 STATUS; 
; 2 87 6389 
; 5388 6390 STATUS = PROCESS_SNDSMB_OPTIONS( 
: 5389 6391 NBXCA CM$T_QUE_OPT 
: 5390 L 3 SMOSK_RLSTIM, ~SMO$K_NOWSEXTNT); 
: 5391 639 IF NOT STATUS THEN RETORN .STATUS: 
; 2392 6394 END: 
: 539 6395 
3; 5394 6396 
; 5395 6397 : CSMRSK_ENTER]: 
: 5396 6398 BEGIN 
: 5397 6399 3 LOCAL 
; 5398 6400 STATUS_1; 
; 5399 6401 3 
: 5400 6402 3 CHSMOVE ( 
; 6403 3 XALLOCATION(VALUE_FILE_IDENTIFICATION), 
; 2 6404 3 MBX ENDLACHS T_ INT FID) 
; 6405 3 ALOE IDENTIFICATION) 
3 6406 3 VALUE Arte, Haatate ta TONE SDSC. ‘b LENGTH) = 
; 6407 3 CACMSW_INT_RSL]; 
; 6408 3 VALUE FICE SPECIFICATIONLSDSC_A_ POINTER) = 
3 6409 3 X_ENBDCACMS$W_INT_RSL] - ine ZENDCACHS_ INT_RSL); 
; 6410 3 STATUS T a. PROCE cess SNDSMB_OPTION 
3; 5410 6412 3 SMOSK DEL se. ~smosk NOWSEXTNT); 
3 5411 6413 3 IF NOT STATUS. 1 THEN RETURN .STATUS_ 1; 
: 5412 6414 2 END; 
> 5413 6415 2 
: 5414 6416 2 
: 5415 6417 : CSMRSK_INITIAL): 
: 5416 6418 BEGIN 
: 5417 6419 3 LOCAL 
: 5418 6420 3 STATUS; 
> 5419 6421 ; 
: 5420 6422 STATUS = PROCESS_SNDSMB_OPTIONS( 
+ 5421 6423 3 MBXCACM$T QUE OPTJ,~ 
: 5422 6424 3 SMOSK_CURFORM, SMO$K_NODISWAP); 
> 5423 6425 3 IF NOT STATUS THEN RETURN .STATUS: 
+ 5424 6426 END; 
: 5425 6427 
3; 5426 6428 
: 5427 6429 CSMRSK_MERGE): 
> 5428 6430 BEGIN 
: 429 6431 LOCAL 
: 5430 643 STATUS_1, 
+ 5431 643 STATUS 2 
: 5432 6434 
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NDJBC SSNDACC, SSNDSMB, and $SNDJBC services 1o~30" 1386 00:97:33 AX-11 B 
04-000 14-Sep-1984 12:57:15 JOBCTLeS 
5433 6435 STATUS_1 = PROCESS _ONE_OPTION( 

5434 64 : SJC$_DESTINATION QUEUE, 

5435 64 CHSRCHAR(MBXCACMST_QUEUE_1]), 

5436 6438 MBXCACMST QVEVE 1371); 

5437 6439 IF NOT .STATUS_1 THEN RETURN (STATUS. 1; 

5438 6440 STATUS ‘ = PROCESS_ONE_OPTION( 

5439 6441 SJC$_QUE ue. 

5440 644 CHSRTHAR MBXCACHST ,QUEUE_2]), 

5441 644 MBXCACMS QyeUE 2371); 

aeeg 6444 IF NOT .STA TUS Ta RETURN .STATUS 2 

544 6445 IF NOT FIND TOBE GE (VAR UE QUEUE; SQX_N> SQE, SMQ_N, SMQ) 
5444 6446 THEN RETURN JBC$_NOSUCHQUE; 

5445 6447 END; 

5446 6448 

5447 6449 2 

5448 6450 CSMRSK_REDIRECT): 

5449 6451 N 

5450 645 IF CHSRCHAR(MBXCACM$T_QUEUE_2]) EQL 0 

5451 6453 3 THEN 

5458 6454 4 BEGIN 

545 6455 4 LOCAL 

5454 6456 4 STATUS; 

5455 6457 4 

5456 6458 4 STATUS = PROCESS_ONE_OPTION( 

5457 6459 4 SJC$_QUEUE, 

5458 6460 4 CHSRTHAR (MBXCACM$T_QUEUE_1]), 

5459 6461 4 MBXCACMS$T_QUEUE_1]71); 

5460 6462 4 IF NOT .STATUS THEN RETURN .STATUS; 

5461 6463 4 IF NOT FIND QUEUE (VALUE QUEUE; SQX'N, SQE, SMQ_N, SMQ) 
5462 6464 4 THEN RETURN JBC$_NOSUCHQUE; 

46 6465 4 PROC_ROUTINE = SJC_DEASSIGN “QUEUE; 

5464 6466 4 END 

5465 6467 3 

5466 6468 4 BEGIN 

5467 6469 4 LOCAL 

5468 6470 4 STATUS_1, 

5469 6471 4 STATUS_2; 

5470 6472 4 

5471 6473 4 STATUS_1 = PROCESS _ONE_OPTION( 

2478 6474 & SJU$_DESTINATION QUEUE, 

547 6475 4 CHSRTHAR(MBXCACMST_QUEUE_1]), 

5474 6476 4 MBXCACM$T QUEUE 1)71); 

5475 6477 & IF NOT .STATUS 1 THEN RETURN .STATUS_1; 
5476 6478 4 STATUS_2 = PROCESS_ONE_OPTION( 

5477 6479 4 VEU 

5478 6480 4 CHSRTHAR (MBXCACMST , QUEUE _2)), 

5479 6481 4 MBXCACM$T_ QUEUE 2)71); 

5480 6482 4 IF Nor ~STATUS._ 2 THEN RETURN » STATUS 2:3 
5481 6483 4 IF NOT FIND _QUEUE(VALUE QUEUE; SQX_N> SQE, SMQ_N, SMQ) 
2488 6484 4 THEN RETURN JBC$_NOSUCHQUE; 

548 6485 3 : 

5484 6486 END; 

5485 6487 

5486 6488 

5487 6489 CSMR$K_RELEASE): 

5488 6490 

5489 6491 3 VALUE_ENTRY_NUMBER = .MBXCACM$W_ENTRY_NUMBER]; 
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STATUS = PROCESS ONE _OPTION( 


JOB_NAM 
CHSRTHARTMBXCACMST_JOBNAME)), 
MBXCACM$T_JOBNAME J71); 
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SSNDACC, SSNDSMB, and $SNDJBC services 16-Sep-1984 00:92:3 AX-1 
14-Sep-1984 12:37:1 JOBC 
649 ITEM_PRESENT(SJC$_ENTRY_NUMBER] = TRUE; 
$238 ITEM-PRESENTESIES“HO HOLDS = TRUE; 
6494 END; 
6495 
6496 
649 CSMR$K_RMVJOB): 
6498 BEGIN 
6499 VALUE_ENTRY_NUMBER = .MBXCACM$SW_ENTRY_ NUMBER]; 
6200 ITEM_PRESENTCSJC$_ENTRY_NUMBER] = TRUE; 
6501 END; 
6908 
650 
te: CSMRS$K_START]: 
6506 IF .SMQCSMQ$V_PAUSED] AND .SMQCSMQ$B_CURRENT_JOB_COUNT] NEQ 0 
6507 THEN 
6508 4 BEGIN 
6509 4 LOCAL 
6510 4 STATUS: 
6511 4 
6312 4 STATUS = PROCESS_SNDSMB_OPTIONS ( 
6513 4 MBXCACM$ST_QUE_OPT 
6514 4 SMOSK_NEXTJOB, SMO$K_SPCCNT); 
6515 4 IF NOT .STATUS THEN RETURN STATUS; 
6516 4 E 
6517 3 ELSE 
6518 4% BEGIN 
6519 4 LOCAL 
6520 4 STATUS; 
6521 4 
6522 4 STATUS = PROCESS_SNDSMB_OPTIONS( 
6523 4 MBXCACM$ST_ QUE_O 
6524 4 SMO$K_CURFORM; SMO$K_NODISWAP); 
6525 4 IF NOT .STATUS THEN RETURN .STATUS: 
6526 3 END; 
6527 2 END; 
6528 2 
6329 2 
6930 CSMRS$K_SYNCJOB): 
6952 IF .MBXCACM$W_ENTRY_NUMBER] NEQ 0 
6533 3 THEN 
6534 4 BEGIN 
6535 4 VALUE_ENTRY_NUMBER = .MBXCACMSW_ENTRY_NUMBER]; 
6536 4 ITEM_PRESENTCSJC$_ENTRY_NUMBER] = TRUE; 
6937 3 END; 
6539 5 IF CHS$RCHAR(MBXCACMST_JOBNAME]) NEQ 0 
6540 3 THEN 
6541 & BEGIN 
65 ‘ 4 LOCAL 
6543 4 STATUS; 
6544 4 
6545 4 
65 6 4 
6547 4 
6548 4 
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04-000 12-808-13be 99:95:37 JOBCTL. SRC ISNDJBC.B32:1 9° 39) 

: $547 6549 & IF NOT .STATUS THEN RETURN .STATUS; + | 
; ot £350 > D; : | 
: 5549 6551 3 
; ee9 2226 | 3 
; 5551 6 2 | 
; 226 6554 CINRANGE) | 
; 232 6555 3 | 
: 5554 6996 3 
; 5555 655 3 | 
: 5556 6558 3 
: 5557 6559 3 
; 2238 6560 3 
: 5559 6561 ! Dispatch to execute the request. 2 ( 
; 5560 $36¢ st 
; 5561 656 i. proc ROUTINE) (.SQX_N, .SQE, .SMQ_N, .SMQ) | 
; 5562 6564 1€ | i 
+ 
02591 -BLKB 3 3: 
02 £3 8C 02594 SEARCH_REQUIRED: 5 ( 
BYTE -116, -13, 2 ; : 
02597 .BLKB 1 | 3 
02 F3 8F 02598 QUEUE_PRESENT: 2 ( 
-BYTE -113, -13, 2 ; | 7 
02598 -BLKB 1 s ( 
66 66 56 56 56 56 0259C MINIMUM_LENGTH: i 
-BYTE 86, 86, 86, 86, 102, 102 : : 
00 025A2 BYTE 0 : 2 ¢ 
58 56 58 5B 46 76 56 86 56 025A3 .BYTE 86, -122, 86, 118, 70, 88, 88, 86, 88 ; | i ( 
00 025aC .BYTE 0 : 3 
eee se eat 
00000000" 00000000" 00000000" 00000000' 00000000' 00000000' 02580 PROCESSING ROUTINE: 3 ( 
.ADDRESS SJC_CREATE_QUEUE, SUC DELETE QUEUE , : | 2 ( 
SJC_START_QOEUE, SJC_PAUSE QUEUE, : 3 ¢ 
SJC “RERGE “QUEUE, SJC “ASSIGN. _QUEUE ; 2 ( 
O# 025¢8 -BYTE  0C47 : | : 
00000000" 60000000" 00000000" 00000000' 00000000' 00000000' 025¢c .ADDRESS SJC_STOP_QUEUE, SJC_ENTER_FILE, : 3 
00000000" 00000000' 00000000' 02564 SJC_CREATE_JOB, SJC_A Ce, - : : ( 
SJC-CLOSE_JOB, SJC_BELETE_JoB, : 2 | 
SJC"ALTER_JOB, SJC"ABORT_JOB, F | 3 | 
SJC-ALTER_JOB 3 2 
OO# 025F0 .BYTE OC47 : | 3 | 
00000000' 025F4 “ADDRESS SJC_SYNCHRONIZE_JOB : | 
3 | 
| 
OFFC 00000 ENTRY SNDSMB. SERVICE, Save R2,R3,R4,R5,R6,R7,R8,- ; 6150 | | 
SE 04 C2 90002 SUBL2 #4. SP : 3 | 
51 00000000" EF DO 0000 OVL 1 : 6257 | aa 
0046 «BF FA Al BI 900¢ CMPW 30s =6(R1), #70 : 3 
2A 1F 0001 BLSSU ; 3 | 
50 44 Al 3C 00014 MOVZWL 68(R1), RO : 6264 | 3 
00000000' €F 50 DO 00018 MOVL RO, DIAG_TRACE+4 : 3 | 
11 50 B1 OO01F CMPW SiO. #17 ~ ; 2 
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SNDJBC SSNDACC, SSNDSMB, and SSNDJBC services ihese -1984 00:27:5 AX-11 Bliss-32 V4.0-742 Page 174 
v04-000 1eneep- 1 8be 9995578 =| PMT hse sche Me. 835 44 9° (39) 
7E 7 F 9A O00F6 10$ MOVZBL #114, (SP) : 6344 
7E 6 ef 9A aor MOVZBL #112. =(SP) : _ 
56 AG OF OOOFE 118 PUSHAB 86 (Rb) : 
$7 00000000" EF DO 0010S 128:  MOVL. MBX.END, R7 ; 6358 
00000000" EF pc OA? ct 28 Ot OR MOVC3 me: NB bCR?), VALUE _FILE_IDENTIFICATION : 
50 DA A? : 113 MOVAB =38(R7), + 6361 
90000000" &F 60 : 11 MOVW (RO), VALUE_FILE_SPECIFICATION : 
51 $0 ; O11E MOVZWL (RO) t 6363) 
00000000" EF 50 oi2i SUBL3 R1, RO, VALUE_FILE_SPECIFICATION+2 : | 
0B DD 00129 PUSHL aii + 6365. 
01 DD 001 B USHL #1 : 
76 AB SF O012D PUSHAB 118(R6) : | 
4F 11 00130 BRB 18$ : | 
00000000' EF 56 AG 3C 00132 13$:  MOVZWL 86(R6), VALUE_ENTRY_NUMBER > 6376) 
39 DD 0013A PUSHL #57 + 6378 | 
0C DD 0013¢ PUSHL #12 : 
58 AG 9F 0013E PUSHAB 88(R : 
FCF2 CF 03 FB 00141 CALLS #3, PROCESS_SNDSMB_OPTIONS : | 
03 50 E9 00146 BLBC STATUS, 14$ + 6380 | 
0104 31 00149 BRW 28$ : | 
04 0014C 14%: RET + 6381) 
39 DD 00140 15$:  PUSHL #57 > 6391 | 
20 DD 0014F PUSHL #32 : 
AB 11 00151 16$: BRB 11$ : 
57 00000000" EF D0 00153 17$: OVL_ MBX_END, R7 + 6404 | 
00000000" EF DC A7 24 28 OO1SA MOoVC3 #36, -36(R7), VALUE_FILE_IDENTIFICATION s 
50 DA AZ. SE 00163 MOVAB =38(R7), : 6407) 
00000000" EF 60 BO 00167 MOVW (RO), VALUE_FILE_SPECIFICATION ; | 
51 60 3C 0016E MOVZWL (RO). R1 + 6409. 
00000000" EF 50 51 ¢3 00171 SUBL3_ R1, RO, VALUE_FILE_SPECIFICATION+2 : | 
39 DD 00179 PUSHL #57 ; 6411, 
01 DD 00178 PUSHL #1 : | 
0086 C6 9F 0017D PUSHAB 134(R6) : 
OOF9 31 00181 18$: RW 33$ ; 
7E 5B BF «9A 00184 19$:  MOVZBL #91, -(SP) + 6423 
7E 40 8F 9A 00188 MOVZBL #64. =(SP) ; 
C3 11 0018C BRB 16$ : 
47 AS OF OO1BE 208 PUSHAB 71(R6) > 6438 
7E 46 Ab 9A 00191 MOVZBL 70(R6), -(SP) : 6437 | 
1A DD 00195 PUSHL we6 : 
F744 CF 03 FB 00197 CALLS #3, PROCESS_ONE_OPTION : | 
74 50 €9 0019¢ BLBC STATUS_1, 23$ > 6439 | 
50 00000090" EF pO 0019F MOVL MBX RO > 6443 | 
57 AO 9F 0016 PUSHAB 87(RO) : 
7E 56 AO 9A 001A9 MOVZBL 86(RO), -(SP) + 6442 | 
7E 86 «8F 9A OOTAD MOVZBL #134, -(SP) ; | 
F72A CF 03 FB 001B1 CALLS #3, PROCESS _ONE_OPTION ; 
5E 50 €8 00186 BLBS § STATUS_2, 228 > 6444 | 
94 00189 RET > 6445, 
50 47 6 E O1BA 21$:  MOVAB 71(R6), RO > 6461 
56 Ab 95 001BE TSTB = 86( RO) > 6452 | 
¢9 12 001C1 BNEQ 22$ ; 
0 DD 1c PUSHL RO > 6461 | 
7E 46 Ab 9A 001C MOVZBL 70(R6), -(SP) + 6460. 
7E 86 BF 9A 00109 MOVZBL #134, -(SP) : 
F70E CF 03 FB 001CD CALLS #3, PROCESS_ONE_OPTION ; 
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v04=0 1o-8e8=1 382 9039537 JOBCTL.SRCJSNDJBC.B32;1 9° 39) 
3E 50 €9 001D BLBC STATUS, 23$ : 6462. 
00000000" €&F ef bg PUSHAB VALUE_ QUEUE ; gre | 
000000006 EF i FB see CALLS 4¥ F ND_QUEUE : | 
6E EOFS CF oe O1E MOVAB SJC_DEASSIGN_QUEUE, PROC_ROUTINE + 6465) 
g¢ 1 OTEA BRB 29$ + 6452 | 
0 DD QiEC 22$:  PUSHL RO > 6476. 
7E 46 AB SAD lee MOVZBL 70(R6), =(SP) + 6475. 
1A DD OO1F USHL eo : 
FOE? CF 03 FB O001F4 CALLS #3, PROCESS_ONE_OPTION : 
17 50 £9 001F9 BLBC = STATUS_1, 23$ + 6477 
50 00000099" EF DO OF OVL MBX RO + 6481 
AO 9F 020 PUSHAB 87(RO) : 
7E 56 =6A0 9A 00206 MOVZBL 86(RO), =-(SP) + 6480) 
7E 86 BF 9A O020A MOVZBL #134, -(SP) : | 
F6CD OCF 03 FB 00 OF CALLS #3, PROCESS _ONE_OPTION : 
01 50 Es a0816 23$: BLBS STATUS_2, 228 : 6482 | 
00000000" EF 9F 00217 24$:  PUSHAB VALUE_QUEUE + 6483 | 
00000000G_ EF 01 FB 0021D CALLS #1, FIND_QUEUE s 
31 50 €E8 00224 BLBS 9 F 
50 00048038 &F dO s095e 25$ MOVL #294968, RO + 6484 
00000000" EF 56 AG ge 00 ¢ 26$: MOVZWL 86(R6), VALUE_ENTRY_NUMBER + 6491 
00000000" EF 40 8F 88 00237 BISB2 #64, ITEM PRESENT+3 > 6492 
00000000" EF 01 88 0025 BISB2 #1, ITEM_PRESENT+9 + 6493 
69 11 00246 BRB 7$ : 6326 | 
00000000" EF 56 AG 3C 00248 27$:  MOVZWL 86(R6), VALUE_ENTRY_NUMBER + 6499 
00000000" EF 40 8F 88 00250 28$:  BISB2 #64, ITEM_PRESENT+3 : 6500 
57 11 00258 29$: BRB 37$ + 6326. 
50 56 Ab SE 0025A 30$:  MOVAB 86(R6), RO > 6513 
10 10 AB 02 €1 00256 BBC #2, 16(SMQ), 31% : 6506 
0115 CB 95 0026 TSTB  277(SMQ) : 
OA 13 00267 BEQL 31$ F 
7E 62 = «BF gh 269 MOVZBL #98, -(SP) + 6513) 
7E 60 8F 9A 0026D MOVZBL #96. =(SP) ; | 
08 11 00271 BRB 32$ : 
7E 5B «BF OA 00275 31$: MOVZBL #91, -(SP) > 6523 
7E 40 8F 9A 00277 MOVZBL #64. =(SP) ; 
50 DD 0027B 32$:  PUSHL RO : 
FBB6 OCF 03 FB 00270 33$: CALLS #3, PROCESS_SNDSMB_OPTIONS ; 
2A 11 00282 BRB : 6525 
56 AG 8 00284 34$: TSTW 6(R6) : 6532 | 
10 1 00 87 BEQL 5$ ; 
00000000° EF 56 «Ab 3 00289 MOVZ2WL 86(R6), VALUE_ENTRY_NUMBER : 6535. 
00000000" EF 40 8F 88 00291 BISB2 #64, ITEM_PRESENT+3 > 6536 | 
58 Ag 3 00299 358: TSTB 8(R6) : 6539 
13 13 0029¢ BEQL ; | 
59 Ab OF 0029E PUSHAB 89(R6) > 6548 
7E 58 4 =A6 9A OO2AT MOVZBL 88(R6), -(SP) : 6547. 
7E 4F = oBF_ 9A O02A5 MOVZBL #79, - ; 
F632. 03 FB 002A9 CALLS #3 PROCESS_ONE_OPTION ; | 
OA 0 £9 OOCAE 368: LBC = STATUS, 38S > 6549. 
7E SA 70 00281 37$:  MOVQ  SMQ_N, =(SP) > 6563 | 
7E 58 7D 002B4 MOVQ SQX"N, =(SP) ; 
10 BE 04 FB 00287 CALLS #4, ~@PROC_ROUTINE ; | 
04 002BB 38$: RET 3 6564 | 
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v04- 12780071382 99:95:32 JOBCTL. SRCISNDJBC..B32; . (40) | 
> 5564 6565 1 ROUTINE PROCESS_SNDJBC_ITEM_LIST= 
; 5565 6 98 1 
3 $8 6567 1 !+44 
; 556 e208 1} 
; 5568 6 8 1 ! FUNCTIONAL DESCRIPTION: 
3 4 6570 1! his routine processes the item List of a $SNDJBC service into internal 
; 0 6571 1! data structures. 
; $571 e278 1} 
: 2r¢ 6575 1 ! INPUT PARAMETERS: 
; 557 6574 1! NONE 
3; 5574 6575 1! 
3 2272 $278 1 ! IMPLICIT INPUTS: 
; 278 eet : } MBX - Pointer to buffered mailbox message. 
; 2eh6 6579 1 ! OUTPUT PARAMETERS: 
; 5579 6580 1! NONE 
; 5580 6581 1! 
; 5581 eee 1 ! IMPLICIT OUTPUTS: ‘ : 
3 2266 6585 1! Values in the item List in internal storage. 
; 558 6584 1! 
; 5586 6585 1 ! ROUTINE VALUE: 
; 5585 6586 1! Completion status. 
; 5586 6587 1! 
; 5587 6588 1 ! SIDE EFFECTS: 
>; 5588 6589 1! NONE 
; 5589 6590 1! 
; 5590 6591 1 !-- 
; 5591 0238 1 
: 2298 6593 2 BEGIN 
; 559 6594 é LOCAL 
3 5594 6595 VALUE_CURSOR: REF BBLOCK ! Cursor over item list | 
3; 5595 6596 2 VALID_ITEMS: REF BITVECTOR; i‘ Pointer to mask of valid item codes 
; 5596 6597 
; 5597 6598 
; 5598 6599 MACRO 
; 5599 M 6600 BOOLEAN _VECTOR(CIJ= 
; 5600 M 6601 § BITVECTORCMAX_SNDJBC_ITEM+1] PSECT(CODE) ALIGN(O) 
$ reed 9's PRESET(BOOLEAN_VECTOR_1(ZREMAINING)) %, 
3 3608 M 6604 BOOLEAN_VECTOR_1CAJ= 
; 5604 6605 CA] "= TRUE %; 
; 5605 6606 
; 5606 6607 
:; 5607 6608 OWN 
; 5608 6609 NO_BITS: 
; et4 roth BITVECTORCMAX_SNDJBC_ITEM+1] PSECT(CODE) ALIGN(O) INITIAL(O), 
3; 5611 661 QUEVE _BIT: 
; 2018 P 661 BOOLEAN_VECTOR( 
; 26! 6614 SJC$_QUEUE), 
; 5614 6615 
3; 5615 661 QUEUE _DEST QUEUE BITS: 
; 2616 P 661 BOOLEAR_VECTOR( 
; 561 P 661 SJC$_QUEUE, 
; 5618 661 SJCS_DESTINATION_QUEUE), 
; 5619 6620 
; 5620 6621 QUEUE _ENTRY_NUMBER_BITS: 
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00000000 


01 
02 


EB ODD 


02884 
02888 

00# O28CA 
40 O28DA 
02808 

00# 028E0 
04 028E3 
OO# 028E4 
40 028F0 
028F1 

00# 028F6 
40 028F9 
OO# O28FA 
40 8 308 
90 

00# 0290C 
44 8 90F 
O# 02910 
Q 02914 
00# 8 916 
bh 91C 
03928 
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02925 
02928 


NO_BITS:. oe 


QUEUE_BIT: 
-BY 
BYTE 


.BLKB 
QUEUE_DEST QUEUE 
-BYTE 
“BYTE 
-BYTE 
-BYTE 
.BLKB 
QUEUE_ENTRY_NUMB 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
.BLKB 
ABORT 108, OPTIONS 


-BYTE 
“BYTE 
-BYTE 
-BYTE 
-BY 
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SNDJ SSNDACC, SSNDSMB, and SSNDJBC services 16-Sep AX-11 Bliss-32 V4.0-74 Page 188 SY 
y04-060 14-Sep 71982 90: $537 ‘OBCTL” SRCISNDJBC.B32; . (40) | 
3 6191 7192 4 VALUE_CURSOR = .VALUE_CURSOR + 2; 
3 6138 F198 4 STATUS = PROCESS ONE OPTION(. Cope -VALUE_SIZE, .VALUE_CURSOR); 
> 619 7194 4 if NOT .STATUS TREN N RETURN STATUS; 
; 6196 7195 4 IF .OUTPUT_ITEMC.CODE 
; 6195 £196 6 THEN VALUE_CURSOR = .VALUE_CURSOR + 8 
3 6196 7197 4 ELSE VALUE-CURSOR = .VALUE-CURSOR + .VALUE_SIZE; 
3 619 7198 
; 6198 7199 END; 
8300 aT 
3 : 4 g 8§ Ensure that all required items are specified. 
: 6 8g 7204 INCR I FROM 0 TO XSIZE(BITVECTORCMAX_SNDJBC_ITEM+1])-1 DO 
3 6204 7205 BEGIN 
; 6205 7206 4 IF (.VECTOREC REQUIRED _ITEM_TABLEC .MBXCACMSW_FUNC]2, .1; ,BYTEJ AND 
3 6206 7207 VECTORCITEM PRESENT, 71; ,BYTEJ) NEQ 
; 6207 7208 é VECTOR -REQOIRED_ Trem: ThBteEL. MBXCACM$W_FUNC]], .1; ,BYTE) 
; £559 7210 RETURN JBC$_MISREQPAR; 
3; 6210 7211 2 END; 
; 6211 Pele 2 
3; 6 \§ 721 § 
3 621 7214 $S$_NORMAL 
3 6214 7215 1 END; 


9 
SND JBC SSNDACC, SSNDSMB, and SSNDJBC services 1Sese -1984 00:27:5 AX-11 Bliss-32 V4.0-742 Page 189 
y04-000 12-8 08- 1 3be eat JOBCTL.SRCISNDJBC B32: 1 . (40) | 
18 02920 .BYTE 4 : ; 
00# 029 F -BYTE ie : : 
9 -BYTE 1 : : 
931 “BYTE : 3 
9 ; .BYTE : : 
9 -BLKB ‘ 
CO EB 5D 76 67 70 18 02938 ALTER_JOB_OPTIONS: : 
BYTE 34, 112, 103, 118, 93, -21, -64 ; : 
99 0293F “BYTE : ; 
89 80 02940 .BYTE 128, -119 : ; 
99 0 94¢ .BYTE : : 
1F 80 0c 47 FF E6 FC FF 9 8 vt, a ei -104, -1, -4, -26. -1, 71, Wee -128, 31 e : 
78 70 80 0294E ALTER_QUEUE_ OPTIONS: : 
-BYTE 128, 112, 120 : : 
99 02951 .BYTE 0 : : 
cO 38 77 0 932 -BYTE 119, 56, -64 : ; 
99 0299 -BYTE : ; 
06 FF 76 30 02956 -BYTE 48, 118, -1, 6 : | : 
00# 0295A -BYTE o¢2] : : 
61 0295¢ .BYTE 9 : F 
00 0295D .BYTE 0 : : 
1F 86 70 60 0299e .BYTE 96, 112, -122, 31 : : 
0296 .BLKB F 
00 02964 BATCH. CHECKPOINT OPTIONS: : 
80 02965 .BYTE 128 ; : 
02966 .BLKB 20 F 
00 0297A BATCH_SERVICE_OPT IONS: : 
0c 02978 .BYTE 12 ; | : 
0297C -BLKB 20 ; 
00# 02990 CLOSE_JOB_OPTIONS: | : 
-BYTE 011] : : 
01 02998 .BYT 1 ; : 
0299 .BLKB 10 : 
CO 38 77 80 66 70 18 029A6 CREATE_JOB_OPTIONS: : 
<BYTE 24, 112, 102, -128, 119, 56, -64 : : 
00 029aD .BYTE : 
89 80 O29AE .BYTE -128, -119 : 
00 02980 BYTE : 
FF CO OC 44 FF 80 FC FF 80 02981 .BYTE -128, -1, -4, -128, -1, 68, 12, -64, -1 : 
Og9BA .BLKB 
CO 38 77 O08 F8 73 80 O29BC CREATE_QUEUE_OPTIONS: 
.BYT -128, 115, -8, 8, 119, 56, -64 : 
00 029¢3 .BYTE 0 : 
66 FF 76 7C 029C4 -BYTE 124, 118, <1, 102 : 
00# 02968 “BYTE C24 F 
61 O29CA .BYTE 9 : 
00 0 9CB .BYTE 0 : 
1F 9E FO 78 029CC -BYTE 120, -16, -98, 31 ; 
02900 .BLKB 2 
00 02902 DEFINE CHARACTERISTIC _OPTIONS: 
30 02903 .BYTE 48 : 
02904 -BLKB 20 
00# 029E8 DEF INE_FORM_OPTIONS: 


00# b5ace SYNCHRONIZE rOPTiONs: 


H bs | 

SND JBC SSNDACC, SSNDSMB, and SSNDJBC services 16-Sep-1984 AX-11 Bliss-32 V4.0-742 Page 190 SY 
v04- 14-Sep 71982 99: $537 JOBCTL.SRCISNDJBC. B32;1 . (40) | vO 

-BYTE O06] ; : 

03 FF FF gee BYTE of -1, 3 : F 

O08 9F BYTE (53 : ; 

1 36 .BYTE 4 : : 

OF .BLKB ; 

O0# O29FE DEFINE_FORM REQUIRED: F 

.BYT 0(6] : ; 

CO 02A04 “BYTE $4 : : 

0 A0S BLK 1 : 

00 0O2A14 DELETE CHARACTERISTIC OPTIONS | : 

10 0 A15 .BYTE 16 : : 

Al6 BLK 2 ; 

00# O2A2A DELETE_FORM_OPTIONS: | : 

-BYTE OL6] ; | : 

40 02A30 <BYTE 64 : | ; 

02A31 “BLKB 15 | 3 

CO EB DD B83 66 74 18 O2A40 ENTER_FILE OPTIONS: F 

-BYTE 24, 116, 102, -77, -35, -21, -64 : : 

00 02A47 “BYTE 0 : . 

89 80 02A48 .BYTE 128, -119 : F 

00 O2A4A .BYTE : ; 

FF CO OC 47 FF €6 FC FF 99 O2A4B .BYTE -103, -1, -4, -26, -1, 71, 12, -64, =1 : | ; 

00# 02456 RESERVED. FUNC _OPTIONS: : 

TBYTE” 0£20) : | : 

OF FC O2A6A .BYTE =4, 15 ; : 

04 O2A6C START -ACCOUNT ING OPTIONS: | : 

QO# 02A6D -BYTE 012) : : 

01 02A79 .BYTE 1 ; ; 

O2A7A -BLKB 8 : 

CO 38 77 08 78 73 EO O2A82 START_QUEUE_OPTIONS: 5 

.BYTE -32, 115, 120, 8, 119, 56, - : $ 

00 02A89 “BYTE 3 : 

66 FF 76 7C O2ABA «BYTE 124, 118, -1, 102 : | : 

00 O2A8E -BYTE 0 : : 

61 02 O2A8F .BYTE 2, 97 ; ; 

99 OA91 .BYTE 0 : | : 

1F BF F1 78 0O2A92 BYTE 120, -15, -65, 31 ; : 

02A96 -BLKB 2 : 

00# 02A98 START_QUEUE_MANAGER OPTIONS: | : 

-BYTE 013 $ ; 

1 0 AAS .BYTE 1 : ; 

O# O2AA6 -BYTE 02] : : 

80 O2AAB .BYTE ag : 3 

00# O2AA9 .BYTE gt j ; : 

0 6 AAC “BYTE : $ 

AAD LKB so 3 

04 O2AAE STOP cc ne Weep : 


8, 1 


00000000' 
00000000 


00000000' 
00000000" 


00000000' 
00000000' 
00000000' 
00000000" 
00000000' 


00000000' 
00000000' 
00000000" 
00000000" 
00000000" 


x UO 3 


00000000" 00000000' 
00000000" 00000000' 
00000000" 00000000' 
00000000' 00000000' 
00000000" 00000000" 


BA 


13 80 76 BB F9 


gst DB -BLKB 
OO# O2AFO VALID_ITEM TABLE: 
.BYTE 


00*# 02874 


77 33 DS 43 30 O2BF8 


00 O2BFE 
D6 EA 37 BF 6E O2BFF 


02C0D 
00 O2CO0E 


3 et 


OO# O2ACE 
40 AD . 

ADS ,BLKB 
02 ADA WRITE ss | ame 


: ; AX-11 2 ss-32 V4.0-742 
JOBCTL.SRCJSNDJBC.B32;1 
(6) 
9° 


OPTIONS: 


5 


OL 

“ADDRESS ABORT JOB_OPTIONS, ADD_FILE_OPTIONS, - 
ALTER_JOB_OPTIONS, AL TER -QUEDE_OPTIONS, - 
QUEUE-DEST QUEUE _BITS 
BATCH”CHECRPOINT OPTIONS, - 
BATCH_SERVI OPTIONS, NO_BITS, 
CLOSE JOB, PrTON NS CREATE” 528 GPTIONS, 
CREATE_QU PTIONS T, 
SE Raa TeRIsyie Ba 
DEF INE-FO TION 
DELETE CHARACTERISTIC. OPTIONS, 
DELETE FORM, OPTION 
QUEUE_ENTRY~NUMBER *6ITS, QUEUE _BIT, 
ENTER-FILE_OP > 
QUEUE -DEST— E_BITS, QUEUE_BIT, 
QUEVE-BIT, ~yeRe “ACCOUNT ING “OPTIONS 
START_QUEUE_OPTIONS, - 
START ~ QUEUE -RANAGER 


STOP_ACCOUNTING sOPTTONS. 1aueuE BIT, - 
NO_BITS SYNCHRO NIZE OP oP pt10 


oylomkes - 
RESERVED_FUNC_OPTIONS 


REQUIRED_ AU 8 TABLE: 
BY TE” O04 


BOOLEAN_ITEM: 
-BYTE 


.BLKB 
OUTPUT_ITEM: 
.BYTE 


-BYTE 


OPTIONS, NO BITS - 


NO_BITS 

QUEUE BIT, DEFINE CHARACTERISTIC. VOPT IONS, - 
DEF INE_FORM_ REQUIRED 

DELETE~ CHARACTERISTIC _OPTIONS, 
DELETE-FORM_OPTIONS, = 

QUEUE ENTRY NUMBER BITS, QUEUE BIT, 
QUEUE“BIT, GUEUE_DEST_QUEUE BITS, 

QUEUE eile oOUEvE-B1T NO.BITS, QUEUE BIT, - 
NO_BITS BITS; QUEUE BIT, NO - 

Qu Eve Birt OORT ITE_ACCOUNTING. OPTIONS, 


NO “BITS, NO BITS” 


48, 67, -43, 51, 119, -70 
110 “$3. 55 ot°'6 , “69, 118, - 
“126, 19: 126, “$5 5 


Be Se Se Se Se Be Fe Be Be Be Se Se He Se Be Be Ge Be Se Fe Se Se Be 
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SND JBC SSNDACC, SSNDSMB, and SSNDJBC services 16-Sep-1984 00:27:5 AX-11 Bliss-32 V4.0-74 Page 192) SY! 
v04-000 1o=8E 8-1 382 EE: JOBCTL.SRCJSNDJBC.B32; 9°40)” vO 
0 02¢11 BYTE <1 ; ; 
Se Sel, BME ati 2 3 
dv OSCIA BYTE OC92 } | 
OC 02C23 BYTE 5 : | : 
007C 00000 PROCESS. SND JBC ITEM. LIST: | ; 
«WORD ave R2,R3,R4,R5,R6 3 6565) ‘ 
56 00000000" EF 9E 00002 MO VALUE sfORAGE. “BASE, R6 : | : 
05SA0 BF 00 GE 00 et 30049 MOVCS #0, (SP), #0,-#1446, VALUE_STORAGE_BASE = ; 7157) ; 
50 F440 C6 DO 00011 MOVL + 7158 : 
52 SA AO 9E 00016 MOVAB BOCRON. VALUE _ CURSOR : : 
50 58 AO 3C OOOIA MOVZWL 8 R + 7159 ; 
55 FEA9 CF40 DO OOOIE MOVL  VALID_ITEM_TABLECROJ, VALID_ITEMS : | ; 
F444 C6 . a 80058 1$ CMPL VALUE ~CURSOR, MBX_EN 6 3 7164 | ° 
41 1€ 00029 BGEGU 6$ : | ; 
53 82 3C 00028 MOVZWL (VALUE_CURSOR)+, CODE : 7172) ; 
0D 13 000¢¢ BEQL + 7174 | ; 
000000AB ss BF 53 D1 00030 CMPL CODE, #171 : ; 
04 1A 00037 BGTRU 2$ : ; 
08 65 53 £0 00039 BBS CODE (VALID. ITEMS), 3$ : 7176 : 
50 00048060 8F 00 0003D 2$ MOVL #295608 : 7177 i 
04 00044 RET : ; 
00 66 53 £2 00045 38: BBSS CODE, ITEM PRESENT, 4$ : 7178 : 
D6 87 AF 53 £0 00049 4$: BBS CODE. BOOLEAN ITEM. 1$ : 7183) ; 
54 82 C 0004E MOVZWL (VALUE DORSORTS. VALUE SIZE ; 7191 ; 
52 DD 00051 PUSHL VALUE CURSOR 3 7193 3 
18 BB 00053 PUSHR M<R3,R4> : ; 
F25A CF 03 FB 00055 CALLS #3, PROCESS ONE _OPTION § 3 
48 50 £9 0005A BLBC STATUS, 9$ ~ + 7194 ; 
05 89 AF 53 €1 0005D BBC CODE, OUTPUT_ITEM, 5$ + 7195 ; 
52 08 CO 00062 ADDL2 #8, VALUE_CURSOR : 7196 ; 
BD 11 0006 BRB 1 : ; 
52 54 CO 00067 5$ ADDL2 VALUE_SIZE, VALUE_CURSOR : 7197 ; 
B8 11 O006A BRB 1$ : 7183 ; 
50 F440 C6 DO 0006C 68 MOVL MBX, RO : 7206 ; 
53 58 AO 9€ 00071 MOVAB 88(RO), R3 : : 
50 ps 90073 aye : ; 
51 63 3¢ 00077 7$: = MOVZWL (R3), RI pem. 
51 FED! CF41 DO OOO7A MOVL  REQUIRED_ITEM_TABLECR1), R1 : ; 
52 6041 9A 00080 MOVZBL (1)CR1),7R : 7207 | ; 
54 6640 9A 00084 MOVZBL ITEM PRESENTCIJ, R4 : 3 
54 54 D2 00088 MCOML R4, R& : | ; 
52 54 CA 00088 BICL2 R4. R2 ; ; 
52 6041 08 00 FD 0008E CMPZV #0. #8, (I)CRIJ, R2 : 7208 | 3 
08 13 00094 BEQL 8S ; | ; 
50 00048108 8F 00 00096 MOVL #295176, RO ; 7210) ; 
04 00090 RET ; : 
D5 50 15 F3 OOO9E 8$: AOBLEQ #21, I, 7$ > 72064 | : 
50 01 v6 BO0A MOVL #1, RO : 7215 F 
4 OOOAS 9$ RET ; ; 


; Routine Size: 166 bytes, Routine Base: CODE + 2C€24 
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JRO SSNDACC, SSNDSMB, and SSNDJBC services 
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71986 92:97:15 UGdactesnessnbsBC-032;1 


sso 


STATUS; 


Ensure that the function code is in range. 

DIAG reacetl) = XCACMS$W_FUNC]; 
-MBXCACM$W_FUNC] LSSU MIN_SNDJBC _FUNC 
R_ MBX ACMSW>FUNC] GTRU MAX~SNDJBC—FUNC 
NRETURN JBCS_INVFUNCOD; 


SNDJBC_COUNTC .MBXCACM$W_FUNCJ]] = .SNDJBC_COUNTC .MBXCACMS$W_FUNC]] + 1; 


! wetee diagnostic info t##es 


Ensure that the queue file is open, and lock it. 
IF, jQUEUE_FILE_REQUIREDE .MBXCACMSW_FUNCIJ 


BEGIN 
IF .QUEUE bores IFI] EQL 0 THEN RETURN JBC$_JOBQUEDIS; 
LOCK. QUEUE _F ILE ¢ 


: Process the item List. 
STATUS = PROCESS SNDJBC_ITEM_LIST(); 
IF NOT .STATUS TREN RETORN .STATUS; 
If the request requires a queue search, search for the queue. 
Feng, ACM PE GUIREDE RBXEACHOM FUNC I 
if ed FIND_QUEVE(VALUE_QUEUE; SQX_N, SQE, SMQ_N, SMQ) 
RETURN JBC$_NOSUCHQUE ; 


Dispatch to execute the request. 
(PROCESSING ROUTINEL .MBXCACHSW_ FUNC). SQX_N, -SQE, .SMQ_N, .SMQ) 


-BLKB 2 
29 7A 14 3A SEARCH -REQUIRED: 


35. 20, 122, 41 


BYTE -66, -1, 127, 41 
-BLKB 1 


-BLKB 3 
PROCESSING ROUTINE: 


O2CLA 

O2ccc 

02¢00 

02CD1 “BLKB 3 
29 7F FF BE O2CD4 QUEUE_FILE REQUIRED: 

pecs 

02CD9 

02coC 
BYTE 004) 


00s 
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et Oi ieteeg ie etd 
JOBCTL.SRCJSNDJBC.B32; 
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VOe~000 


; Routine Size: 


SSNDACC, SSNDSMB, and $SNDJBC services 


138 bytes, 


Routine Base: 


CODE + 2060 


10 
IERe0cH9Rs QO:gR:HE  YABaLh SbAeSGRBL WE: Ba54% Poe dy 


De 


D 10 
Soma, sumsne, ond Semvat services aE HeeiS MBSA PASS SUNGHE AE Sst 


PSECT SUMMARY 
Bytes Attributes 


5024 NOVEC, WRT, RD ,NOEXE,NOSHR, on 


. ’ REL, OVR,NOPI 
11754 NOVEC,NOWRT, RD, EXE,NOSHR, 


’ Tog htt 
» REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


Boer a ee ee Symbols -ooo-se-- Pages Processing 

: File Total Loaded Percent Mapped Time 

; .$255$DUA28: CSYSLIBILIB.L32;1 18619 400 2 1000 00:01.4 

3 COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:SNDJBC/OBJ=OBJ$:SNDJBC MSRC$:SNDJBC/UPDATE=(ENH$: SNDJBC) 


; Size: 9511 code + 7267 data bytes 
: 02:26.1 


; Elapsed Time: 09:10.7 
3 Lines/CPU Min: 30 

; Lexemes/CPU-Min: 34352 

; Memory Used: 625 pages 
; Compilation Complete 
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